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Radio Shack TRS-80 Model I, II, and III assembly language is a powerful way 
to program. Assembly-language programs may run as much as 300 times faster 
than their BASIC counterparts, turning a boring BASIC game into a high- 
speed video chase or a day-long sort into minutes. Unfortunately, assembly lan- 
guage is also difficult to learn and, once learned, a tedious language in which 
to program. 

What is the solution in using assembly language on the Radio Shack com- 
puters? This book offers one solution — precanned, debugged, and documented 
assembly-language subroutines for the TRS-80 computers. In it, you'll find sub- 
routines that will speed up your graphics by a factor of 300, subroutines that 
enable you to perform high-speed sorts, general-purpose subroutines that will 
allow you to do number base conversions and square roots, and special utility 
subroutines, such as subroutines to "dump" the video screen to cassette or to 
read a disk sector. 



There are 65 of these assembly-language subroutines. The subroutines may be 
easily interfaced to BASIC programs — they are specifically geared to BASIC 
interfacing, as a matter of fact. Each subroutine is relocatable; the assembly- 
language code is such that the subroutine may be placed anywhere in memory 
without reassembling the subroutine. To make this task very easy, we've in- 
cluded the equivalent decimal code after the listing of each subroutine. It's 
simply a matter of taking the dozen, or two dozen, or three dozen decimal 
values and embedding them in BASIC programs as DATA statement values or 
strings. From that point on, the subroutine exists as part of the BASIC program. 

Of course, you may not want to always use the subroutines in BASIC programs. 
You may want to CALL them in your own assembly-language code. We've also 
made it easy for you to do this. Each set of code can be called as a separate 
assembly-language module. You may want to reassemble and modify the code, 
but, if not, the code is usable as it stands, and it is completely relocatable. 

Although the subroutines are slanted toward the TRS-80 Model I and III, many 
of them can also be used on the TRS-80 Model II; all three computers, of course, 
use the Z-80 microprocessor. 

The first chapter of this book, "A Brief Look at TRS-80 Assembly-Language 
Programming," contains introductory material on Z-80 assembly-language pro- 
gramming, to make you familiar with some of the techniques. It's not abso- 
lutely necessary that you read this chapter. The next chapter, "Using Assembly 
Language on the TRS-80," shows you how assembly language may be used in 
either a BASIC or stand-alone environment. This chapter is not an absolute 
requirement, either, but you may want to study it further when you start using 
the subroutines and embedding them in BASIC programs or running them as 
separate entities. 

The bulk of the book consists of 65 separate assembly-language subroutines. 
Each subroutine consists of a description, the subroutine listing, and equivalent 
decimal values for the "machine code" of the subroutine. 

The description gives a brief idea of what the subroutine accomplishes and 
shows the input and output parameters that are used to pass information back 
and forth between the subroutine and the calling program. 

The description also includes a complete explanation of the algorithm used in 
the subroutine — how the subroutine accomplishes the function in Z-80 code. 

Another element in the description is a sample call to the subroutine using 
actual input and output values. The sample calls use a "TRS-80 Assembly- 
Language Subroutines Exerciser" program, TALSEX for short. TALSEX is a 
Model I/I II Disk BASIC program that was used to exercise the subroutines; it is 
fully described in Chapter 2 and is used in the descriptions to conveniently 
show the action of each subroutine. 

Notes pertaining to the use of the subroutine are also included in the descrip- 
tion along with a "checksum" value that can be used to verify that you have 
entered the program data correctly. 

The assembly-language listing is the actual listing from the Z-80 assembler. It 
shows every instruction used in the subroutine and also is heavily "com- 



mented." Because of this, the listing may be used in self-study on assembly- 
language programming and techniques. 

The last portion of each subroutine is a complete set of decimal values to be 
used for inclusion in a BASIC program in DATA statements or the like. We've 
done the conversion from hexadecimal to BASIC for you, to minimize operator 
error. These values, when added together by the CHKSUM subroutine, should 
correspond to the Checksum value in the description, giving you a way to 
check the validity of the data in your program. 

An appendix on Z-80 instructions and a second on decimal/hexadecimal con- 
version complete the book. 

We hope that you'll find these subroutines useful in BASIC, in assembly- 
language programs, and in self-study of Z-80 assembly language on the 
TRS-BOs. 

To John Foster and "ASHEE" 
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A Brief Look at TRS-80 
Assembly-Language 

In this chapter we'll discuss some rudimentary assembly-language concepts. It 
isn't necessary that you understand everything in this chapter, or even that you 
read the chapter to use the subroutines in this book. If you choose to do so, 
however, you'll get a better idea of how assembly language is done. 



The Z-80 Microprocessor 

The Z-80 microprocessor is used in the TRS-80 Model I, II, and III microcom- 
puters. It is a third-generation microprocessor that is truly a "computer on a 
chip." When we speak about TRS-80 assembly-language programming we're 
really discussing the built-in instruction set of the Z-80 microprocessor. 

Unlike BASIC statement execution, the Z-80 performs instructions at the most 
rudimentary level. Typical instructions would add two 8-bit numbers, subtract 
two 8-bit numbers, load a CPU register with the contents of a memory location, 
or store a CPU register into a memory location. 
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All assembly-language programs are built up of a set of Z-80 instructions in 
sequence, which are executed by the Z-80. These instructions are held in mem- 
ory in binary and may be one to four bytes long. The binary values for the 
instructions are called machine language, because this is the form that the Z-80 
computing machine recognizes. 



Z-80 Registers 



Before we look at some of the Z-80 instructions, let's take a further look at the 
Z-80 architecture. Figure 1-1 shows the internal registers available to the ma- 
chine-language or assembly-language programmer. We won't show some of 
the other registers involved in internal microprocessor operations, such as 
memory access or timing. 



8 BITS 
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IX 
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PC 



SP 



ONLY ONE SET, 
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AT ONE TIME 



INDEX REGISTER 

INDEX REGISTER 

PROGRAM COUNTER 
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INTERRUPT, REFRESH 
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16 BITS 

^ DENOTES REGISTER PAIRS 

FIGURE 1-1 Z-80 registers for use in assembly language. 

The Z-80 registers are fast-access memory locations located in the Z-80. The A, 
B, C, D, E, H, and L registers are general-purpose 8-bit registers in the Z-80. 
They are used to hold temporary results and for processing. 

The A register is the main accumulator register. It holds one operand for adds, 
subtracts, and other arithmetic operations while the other operand may come 
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from memory or another register. The other registers are used as auxiliary regis- 
ters, with the exception of H and L. 

H and L, along with B and C and D and E, can be grouped together as register 
pairs of 1 6 bits. When this is done, the registers act as three 1 6-bit wide registers 
called HL, BC, and DE. The HL register pair (often called the HL register) is a 
kind of 16-bit accumulator similar to the A register. It can be used for 16-bit 
adds, subtracts, and other operations. 

The IX and lY registers are 1 6-bit registers that can be used as index registers, or 
pointers to memory locations. We'll discuss these a little later on, when we talk 
about Z-80 addressing modes. 

The PC, or program counter, register is the main control register not only in the 
Z-80 microprocessor, but in the whole TRS-80 system. It controls execution of 
all programs, assembly-language or BASIC. After all, BASIC is simply an assem- 
bly-language program that operates on a series of higher-level statements. The 
PC is 16 bits wide and points to the first byte of the next instruction in memory to 
be executed. As an assembly-language program executes, the PC is constantly 
being updated by one to point to the next byte of the instruction or is loaded 
with a jump address to enable a jump to a new location in memory. 

The SP, or stack pointer, register, is a 16-bit register that points to the stack area. 
The stack area is a special section of RAM memory that is set aside to hold 
return addresses from CALL instructions, temporary results, or interrupt loca- 
tions. This stack area, typically only one hundred bytes long, builds downward 
as the stack is used. Every time an assembly-language CALL instruction (similar 
to a BASIC GOSUB) is executed, the return address from the PC register is 
pushed onto the stack. A subsequent RET(urn) instruction pops the stack and 
reloads the PC with the return address. 

The R and I registers can be largely ignored by the programmer. (The R register 
is used in one subroutine in this book.) The I register is used for a special 
interrupt mode in other Z-80 systems, and R is used for refresh of the dynamic 
memories in the TRS-80 systems. 

We've given a thumbnail sketch of all of the Z-80 registers except one, the F 
register. The F register is a collection of the eight flags shown in figure 1 -2. 
These flags are set by the action of assembly-language instructions. The Z flag, 
for example, stands for Z(ero) flag. The Zero flag is set whenever the result of 
certain adds, subtracts, or other types of arithmetic operations is zero. The 
other flags are set for similar conditions. The flags are used in conditional jump 
instructions to alter the flow of an assembly-language program. The program 
could jump to a new set of codes if the result of an add was a negative number, 
for example. The A and F registers are treated together as one 16-bit register 
pair for storage in the stack and other operations. 

The seven general-purpose registers and the flags register are duplicated in the 
Z-80. The second set, called the prime set, is available as additional register 
storage. One or the other set may be selected by two instructions. 
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FIGURE 1-2 F registers. 
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Z-80 Instructions 



The instruction repertoire of the Z-80 contains well over 700 unique instruc- 
tions. Fortunately, many of these instructions can be grouped together, and the 
actual number of similar groups is much easier to manage. 

Loads generally load the contents of an 8-bit memory location, CPU register, or 
immediate value in the instruction itself into a CPU register. A second class of 
loads store the contents of an 8-bit CPU register into memory. Loads may also 
be done on 16-bits of data in a register pair, loading or storing two bytes of data. 
There are a great number of load-type instructions in the Z-80. A load instruc- 
tion in the Z-80 is denoted by an "LD," and you will see many, many loads in 
every program. A load is really just a way of transferring data. 

Arithmetic instructions add or subtract 8 bits of data with the A register, or 16 
bits of data with the HL, IX, or lY registers. These are simply adds and subtracts 
of binary numbers, sometimes with the state of the Carry flag (a one or a zero) 
being added into the result. Adds and subtracts are denoted by ADD, ADC, 
SUB, or SBC. A special type of subtract, the compare (CP), compares two 8-bit 
values. 

A number of instructions related to arithmetic instructions allow adding (INCre- 
menting) or subtracting (DECrementing) one count from the contents of a CPU 
register or memory location. 

Logical instructions perform ANDs, ORs, or exclusive ORs on operands in the 
A register. The ANDs and ORs are identical to BASIC ANDs and ORs, except 
that they operate with 8 bits of data, while the XOR is similar to an OR except 
that two one bits produce a zero bit in the result. 

Shift instructions shift data in any of the 8-bit CPU registers one bit position 
right or left. There are several different types of shifts, including the rotate, 
which rotates the data out of the register and into the other end, the logical 
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shift, which shifts data out with zeroes filling vacated bit positions, and the 
arithmetic shift, which sign extends the value in the register. Mnemonics for 
shifts are RLCA, RLA, RRCA, RRA, RLC, RL, RRC, RR, SLA, SRA, SRL, RLD, and 
RRD. 

Jumps, CALLs, and return instructions handle alterations of the program path 
similar to BASIC GOTOs, IF . . . THEN, GOSUBs, and RETURNs. There are 
two types of jumps, conditional and unconditional. Unconditional jumps al- 
ways jump to a new location, while a conditional jump jumps if the condition, 
such as Zero Flag= 1 , is present. CALLs are identical to BASIC GOSUBs. They 
call an assembly-language subroutine and save the return point in the program 
stack. A RET(urn) retrieves the return address from the stack and returns to the 
instruction after the CALL. CALLs and RETurns may also be conditional or 
unconditional. Jumps are denoted by JP or JR, CALLs by CALL, and RETurns by 
RET. 

A special type of jump is used in conjunction with a loop count in the B 
register. The DJNZ instruction (Decrement and Jump if Not Zero) decrements 
the count in B by one and then jumps back to the beginning of a loop if the 
count is not zero. 

Bit manipulation instructions allow operations on a bit level. Data in a CPU 
register or in memory can be referenced by the bit address, 7 through 0, and the 
applicable bit can be set, reset, or tested. Bit manipulation instructions are 
denoted by SET, RES, or BIT. 

"Block" instructions allow operations on many bytes of data in a block. Blocks 
of data may be searched (CPl, CPD, CPIR, CPDR) or moved (LDl, LDD, LDIR, 
LDDR) using these instructions. 

Input/output instructions handle operations between CPU registers and an ex- 
ternal input/output device, such as cassette tape. The TRS-80s allow both 
"memory-mapped" and "I/O mapped" input/output. This means that an 
input/output device may look either like another memory location (memory 
mapped) or as a special device addressed through an input/output port. When 
the system I/O ports are used, input is normally done with an IN instruction and 
output with an OUT instruction. 

Stack instructions allow data in CPU register pairs; including the AF register 
pair, to be temporarily stored in the system stack. PUSH pushes a single register 
pair to the stack and POP retrieves the data into the original register pair or 
another. 

We haven't mentioned all of the Z-80 instructions, but the above list would 
encompass most of the instructions used in common Z-80 assembly-language 
code. Special instructions are sometimes described in the documentation on 
the subroutines, and there's always reference material in Zilog or Radio Shack 
publications that describe the Z-80 instructions in great detail. 

Z-80 Addressing Modes 

There are a number of different ways to access data with the Z-80 instruction 
set. These are called addressing modes. 
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One type of addressing mode allows operations between CPU registers. You 
can see that it's convenient to add two numbers located in two CPU registers, 
for example. A complete instruction using this type of addressing mode might 
be "ADD A,B," which adds the contents of the B register to the contents of the 
A(ccumulator) register and puts the result into the A register. Another sample of 
this type of instruction is "INC DE," which adds one to the contents of the DE 
register pair and puts the result back into the DE register pair. 

Register addressing is normally used for arithmetic and logical instructions, 
shifts, and load instructions. 

Load and store instructions must transfer data between CPU registers and mem- 
ory. One addressing mode that implements this in load-type instructions is the 
direct addressing mode. This mode allows a CPU register to be loaded or stored 
directly to a RAM memory address specified in the instruction. A "LD 
A,(3C00H)," for example, would load the contents of the first video display 
memory location into the A register. Similarly, a "LD (3FFFH),A" would store 
the contents of A into the last location of the video display memory. Not only 8 
bits of data can be transferred. Sixteen-bit operations are possible with instruc- 
tions such as "LD (3C00H), HI," which stores the contents of the HL register 
pair into video memory locations 3C00H (L) and 3C01 H (H). 

Direct addressing is also used in some types of jump and CALL instructions. In 
this case the address specified in the instruction is the address to which the 
instruction will jump or which the instruction will call. The instruction "CALL 
212H," for example, CALLs the ROM subroutine located at memory location 
212H. The 212H is a part of the instruction as a direct address. 

The immediate addressing mode is used to load a data value into either an 8-bit 
CPU register or into a 16-bit register pair. The data value is usually a constant 
value when loaded into the 8-bit register, but is often an address value when 
loaded into a 16-bit register pair. The term "immediate" means that the data is 
present as part of the instruction itself. The advantage to this mode is that of 
speed and convenience. The immediate mode is faster than accessing a data 
value from a memory location and one does not have to keep track of a large 
number of constants in memory. The following code loads the value of 41 H 
(ASCII "A") into the A register, and the address 3C00H into the HL register pair: 

LD A,41H ;load "A" into A 

LD HL,3C00H ;load start video memory to HL 

Notice that when immediate addressing is used, the data is not surrounded by 
parentheses, as it is in direct addressing, where the data represents a memory 
address. The exception to this is in the jump or CALL instructions where the 
memory address for the jump or CALL does not have parentheses. 

Another type of memory reference addressing mode uses a register pair as a 
pointer to a location in memory. The most commonly used pointer is the HL 
register pair. In this type of addressing, the HL, BC, or DE register is preloaded 
(by another instruction) with the address of the memory location to be used in 
the "register indirect" instruction. An example of this would be the two instruc- 
tions 
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LD 



LD 



HL3C00H 
(HL),A 



;load video memory start 
; store into video start 



The first instruction loads the memory address of 3C00H (the first byte of the 
video memory) into the HL register pair. The next instruction stores the con- 
tents of the A register by a "register indirect" store, using the memory address 
in the HL register pair. 

Another type of addressing mode that is similar in concept to that of using the 
register pairs as pointers is the indexed addressing mode. In this mode, the IX or 
lY index register is used as a pointer to a memory location. The index register 
by itself, however, does not represent the complete address of the memory 
location. The effective address, the one used in the instruction, is formed by 
adding the contents of the lY or IX index register together with a displacement 
address in the indexed instruction. The displacement is a "signed" binary value 
of 8 bits that may be a positive or negative quantity. The effective address, 
therefore, is larger or smaller than the address in the index register. The indexed 
addressing mode is commonly used where the index register points to the 
beginning or end of a table or list of data; the displacement in the instruction 
can then be used to reference memory locations close to the address in the 
index register. 

Suppose, for example, we had a table of data at memory location 8000H. The 
following code would load 8000 H + 5 into the A register, and 8000 H + 10 
into the B register: 

LD IY,8000H ; load index register with 8000H 

LD A,(IY+5) ; load 8005 H contents into A 

LD B,(IY+ 10) ; load 800AH contents into B 

One important addressing mode for our purposes is the relative addressing 
mode. In this mode, the memory address is not present in the instruction, as it 
was for the jump or CALL, but is relative to the location of the instruction itself. 
A displacement value in the instruction is used by the CPU, along with the 
contents of the program counter, to figure out the effective address for the 
jump. For example, if we looked in the machine-language code for a "DJNZ" 
instruction, we would not see a two-byte memory address, but a one-byte 
displacement value. If the jump in the DJNZ was to be made back to location 
8000H, and the DJNZ was at location 800 AH, the displacement value would be 
0F4H, a negative OCH or twelve (the program counter points to two more than 
the start of the DJNZ instruction). 

Relative addressing is important for our purposes because it makes relocatable 
code possible — assembly-language code that can be moved around anywhere 
in memory and still execute properly. The key to relocatability is to avoid direct 
addresses within instructions, and relative jumps such as DJNZ and JRs are 
used to advantage. 

Bit addressing is another type of addressing mode. This mode is used only for 
the bit-processing instructions. The bit position within a byte is referenced in 
this mode, along with one of the other addressing modes we've mentioned 
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above. To set bit 6 in the memory location pointed to by the HL register pair, for 
example, we'd have 

BIT 6,(HL) ; set bit 6 in memory location 

Bit positions in 8-bit bytes are numbered from left to right, bit 7 through bit 0. 
Bit positions in 16-bit "words" are numbered from left to right also, bit 15 
through bit 0. The bit position number represents the power of two associated 
with the bit. 

There are no hard and fast rules about which addressing type to use. Many 
times the choice is dictated by the instruction — not all addressing types are 
permitted with every instruction. 



Machine Code and Assembly Language 

We talked briefly about machine code, but haven't really made a distinction 
between machine and assembly code. The difference can be seen quite easily 
by reference to a typical listing in this book. 

Figure 1-3 shows a short listing for CHKSUM. The listing is divided into several 
parts. Starting from the left, we have the memory locations, in hexadecimal, for 
which the subroutine was assembled. The value for each line shows where the 
instruction on the line will reside; The code always starts at location 7F00H. In 
the case of subroutines in this book, these locations are meaningless, as the 
code can be used not only at locations 7F00H, but 8000H, 888FH, 901 3 H, or 
any place in memory the user cares to put them. (More on that in Chapter 2.) 

The next column is the actual machine code for the instruction in hexadecimal. 
Two hexadecimal digits (0 through 9, A through F) make up one byte, so you 
can see that the machine code is from two to six hexadecimal characters or one 
to three bytes long. The maximum length of an instruction is four bytes, or eight 
hexadecimal digits. Note that the memory location for the instruction in the 
first column reflects the size of the previous instruction, if an instruction is three 
bytes long and is located at 7F0BH, for example, the next memory location 
will be three bytes greater, or 7F0EH. 

The third column shows the editing line number for the instruction. The editing 
line numbers are used only during the editing process and are never used 
during program loading or execution. 

The fourth, fifth, sixth, and seventh columns represent the assembly-language 
code for the instructions. Sometimes this portion is called the "source image," 
because this is the portion that appears in the source file that is assembled. 

The fifth column is the mnemonic for the instruction operation code, or op- 
code. We've been using mnemonics all along. They are just a shorthand way of 
writing down the instruction in convenient and recognizable form. The opera- 
tion code describes the primary function of the instruction, as, for example, an 
"ADD." 
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FIGURE 1^3 Partial CHKSUM listing. 



7F00 




00100 






001 10 






00120 






00 1 30 






icJtc.' I 






mm 1 'nP! 






00160 






r?t f7^ -j T (71 
yuvj J. / tcj 






KJVJ 1 OiCj 


/r 00 


F5 






7F0 1 


C5 






7F02 


D5 




002 1 


7F03 


DDE5 




00220 


7F05 


CD7F0A 




00230 


7F08 


E5 




00240 


7F09 


DDEl 




00250 


7F0B 


DD6E02 




00260 


7F0E 


DD6603 




00270 


7F1 1 


DD5E00 




00280 


7F 1 4 


DD5601 




00290 


7F17 


D5 




00300 


7F1B 


DDEl 




0031 


7F1 A 


010100 




00320 


7F1D 


AF 




00330 


7F1E 


DD8600 




00340 


7F21 


DD23 




00350 


7F23 


B7 




00360 


7F24 


ED42 




00370 


7F26 


20F6 




00380 


7F28 


6F 




00390 


7F29 


2600 




00400 




DDEl 




00410 


7F2D 


Dl 




00420 


7F2E 


CI 




00430 


7F2F 


Fl 




00440 


7F30 


C39A0A 




00450 


7F33 


C9 




00460 


00001 




00470 


0000C 


\ TOTAL 


ERRORS V 



SOURCE IMAGE 
^ 



I ORG 7F00H 5 0522 | 

;* CHECKSUM MEMORY. CHECKSUMS A BLOCK OF MEMORY. # 

;* INPUT: HL=>PARAMETER BLOCK ♦ 

;* PARAM+0, +1=STARTING ADDRESS OF BLOCK * 

;* PARAM+2, +3-# OF BYTES IN BLOCK * 

;* OUTPUT :HL=ADDIT I VE CHECKSUM # 



CHKSUM 



CHK010 



PUSH 




AF 




; SAVE REGISTERS 


PUSH 




BC 






PUSH 




DE 






PUSH 




I X 






CALL 




0A7FH 




;»**GET PB LOC'N*** 


PUSH 




HL 




; TRANSFER HL TO IX 


POP 




IX 






LD 




L, ( IX+2) 




;GET # OF BYTES 


LD 




H, ( IX+3) 






LD 




E, < IX+0) 




;GET STARTING ADDRESS 


LD 




C) 1 ( I X + 1 ) 






PUSH 




DE 




; TRANSFER TO IX 


POP 




I X 






LD 




BC, 1 




; DECREMENT VALUE 


XOR 




A 




; CLEAR CHECKSUM 


ADD 




A) ( IX+0) 




; CHECKSUM 


INC 




IX 




;BUMP ADDRESS PNTR 


OR 




A 




; CLEAR CARRY 


SBC 




HL, BC 




; DECREMENT COUNT 


JR 




NZi CHK010 




;G0 IF NOT DONE 


LD 




L, A 




;MOVE CHECKSUM TO HL 


LD 




H, 






POP 




IX 




; RESTORE REGISTERS 


POP 




DE 






POP 




BC 






POP 




AF 






JP 




0A9AH 




;*#*RETURN STATUS*** 


RET 








; NON-BASIC RETURN 


END 










\ \ 

OPCODE OPERANDS 


t 

COMMENTS 



MEMORY 

LOCATIONS 



MACHINE 

CODE 



EDITING 
LINE # 



INSTRUCTION 

LABEL 



The sixth column is the operands column. The column is used to show which 
operands will take part in the instruction. The instruction at CHK010, for exam- 
ple, ADDs the location pointed to by the IX index register plus a displacement 
of to the contents of the A register. The formats for the operands are relatively 
fixed and can be found in other reference materials for Z-80 assembly lan- 
guage. 

The fourth column is the label of the instruction. This is an optional column, 
but really delineates the difference between machine language and symbolic 
assembly language. The label is used by the assembler program in lieu of a 
memory address. The instruction at 7F26H in figure 1-3, for example, refers not 
to a jump address at 7F1 EH, but to a label of "CHK010." The assembler trans- 
lated the label reference to the proper address in the instruction, in this case, a 
relative displacement. 
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The last column on the listing is the comments column. This column contains 
descriptive text about the use of the instruction. Note that we've indented the 
comments column to show loops. Each level of loops is indented two spaces, 
and there may be as many as three levels of loops. Also in the comments 
column, we've marked certain instructions with asterisks. These represent in- 
structions which may be ignored under "stand-alone" conditions when the 
subroutine is not used with BASIC. This is explained fully in Chapter 2. 

Additional Z-80 Assembly-Language Materials 

As the title of this chapter indicated, we've briefly discussed Z-80 assembly 
language. If you would like a more in-depth discussion of instruction formats, 
addressing modes, and assembly-language techniques, we suggest you obtain 
the reference manual for the Zilog Z-80 microprocessor, or refer to the instruc- 
tion manual for the Radio Shack Editor/Assembler, which reproduces much of 
the same material. The author's Radio Shack book, "TRS-80 Assembly- 
Language Programming," is also a good place to start. 

In the next chapter we'll discuss some of the general techniques of using as- 
sembly language, and specific details about the use of the subroutines in this 
book. 
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Using Assembly 
Language on the TRS-80s 



In this chapter we'll look at some of the techniques involved in using assembly 
language on the TRS-80 Models I, II, and III, especially in regard to interfacing 
the machine-language representation of assembly-language code with BASIC 
programs. 



Using the Model I and III Assemblers 

There are a number of editor/assemblers for the Model I and 111 computers, and 
they are very similar. All are modifications of the basic Radio Shack cassette- 
based Editor/Assembler. The following description of the assembly process will 
use the Radio Shack Editor/Assembler as a point of reference; material on disk 
files will refer to the various modifications available for the Radio Shack Editor/ 
Assembler to enable it to read and write source and object files on disk. 

This material is offered in case you wish to assemble some of the subroutines in 
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the book and modify them for your own use; let's stress once again that you 
can use the subroutines in the book without ever touching an assembler. 



Editing the Source File 

The first step in assembly is to edit the source file. Let's use another short 
subroutine as an example. The SQROOT subroutine is shown in figure 2-1 . To 
start the edit, the assembler is loaded from cassette or disk. The SYSTEM com- 
mand is used to load from cassette. Loading from disk simply involves entering 
"EDTASM" followed by ENTER. 



ORG 7F00H ! 0522 

!# SQUARE ROOT. CALCULATES INTEGER PORTION OF SQUARE * 
;» ROOT OF A GIVEN NUMBER. * 
!* INPUT: HL=NUMBER * 
;* OUTPUT :HL= INTEGER PORTION OF SQUARE RT OF NUMBER * 
; *»*#*#»#**#*######«»#«#»##»*#*##*«*««»»*#»#*#»**##««*««# 

; 

SQROOT 



SQR010 



PUSH 


BC 


;SAVE REGISTERS 


PUSH 


DE 




CALL 


0A7FH 


;**#GET NUMBER*** 


LD 


B,0FFH 


INITIALIZE RESULT 


LD 


DE» -1 


; FIRST ODD SUBTRAHEND 


INC 


B 


; INCREMENT RESULT COUNT 


ADD 


HLiDE 


; SUBTRACT ODD NUMBER 


DEC 


DE 


;FIND NEXT ODD NUMBER 


DEC 


DE 




JR 


CjSQR010 


; CONTINUE IF NOT MINUS 


LD 


L»B 


;GET RESULT 


LD 


H70 


; NOW IN HL 


POP 


DE 


; RESTORE REGISTERS 


POP 


BC 




JP 


0A9AH 


;**#RETURN ARGUMENT*** 


RET 




; NON-BASIC RETURN 


END 







FIGURE 2-1 Sample Source file for edit. 

The "I" command is used to enter a new file. The "I" command is the insert 
command, and is normally used to insert lines between existing lines in an edit 
file. In this case, however, there are no existing lines and the "I" command 
starts a new set of lines with the starting number 100 and line increment of 10. 

The "source image" text of the subroutine can now be entered. Each line is 
typed in its entirety and an ENTER is used to terminate a line. The first several 
lines look like this: 



*l 

00100 
00110 
00120 



ORG 7F00H ;0522 

J********************************************************* 

;* SQUARE ROOT. CALCULATES 



The left arrow key can be used to backspace to correct errors in entry. Other 
editing features are very similar to the BASIC line editor — such things as "L" for 
line, "S" for search, and so forth. After the entire text has been entered, the 
BREAK is pressed. This terminates the insert mode and displays the greater than 
prompt. 
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The source text is now in memory. The source text can be written out to cas- 
sette by the command "W SQROOT." This command produces a source file 
with the name SQROOT. A subsequent "L SQROOT" enables the source file 
to be read in from cassette as a text file. 

The source text can be written out to disk as a source file by the command 
"WD SQROOT/SRC" ("W D= SQROOT/SRC" in some versions). If this is 
done, the text will be transferred to disk as a source file and can be read in for 
further editing at any time by a "LD SQROOT/SRC" (LD= SQROOT/SRC). 

After the source file has been created on disk or cassette, it can be reloaded as 
a check on its validity, or you can simply work with the text in memory. 

Assembling the Source File 

To assemble the SQROOT subroutine, type "A/NO/WE/NS" followed by 
ENTER. The source file will now assemble and the listing will be displayed on 
the screen. If there are any errors in the text, the Editor/Assembler will stop and 
any key may be pressed to restart the assembly. At the end of the listing you'll 
see a message that looks like this: 

00000 TOTAL ERRORS, 

indicating that there were no assembly errors. The "/X" entries were "switch 
options" calling for "No Object," "Wait on Error," and "No Symbol Table 
Listing." 

What has been produced up to this point? The machine code was generated, 
but it was simply part of the listing that was rapidly displayed on the screen. All 
we've done to this point was to assemble and display the listing on the screen 
to check for errors. If everything is all right, we can proceed. Otherwise, the 
errors in the source file can be corrected, another assembly done, and the 
process repeated until we get a "clean" assembly. Many errors will relate to 
instruction format, and these can be corrected by reference to the Radio Shack 
Editor/Assembler manual. There are also slight quirks in some of the assembler 
versions — such things as "(IY+0)" not assembling and "(lY)" assembling prop- 
erly. We can't detail all of these here. It's a shame they exist; try to work around 
them! 

When we have a clean assembly, we can create an object file and save it on 
disk. The object file is really a machine-language version of the program, with a 
"header" for the disk file and other data pertinent to the load. Most of the 
content on the disk file will be the actual machine-language code that you see 
on the listing. To create the object file,, assemble without the "No Object" 
switch, which is the default mode of the assembly. You may also assemble to 
line printer, while you're at it: 

*A/LP/NS 

The Editor/Assembler version may ask for a "destination" (disk or tape) and for 
a file name before the assembly. As we've used SQROOT/SRC for the source 
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file, we might use SQROOT/OBJ for object. The assembly will proceed as 
before, except that the object file will be written to cassette or disk. 

Loading the Object File 

At this point we have both the source file and object file on cassette or disk. The 
source file is saved for possible modification. The object file can now be 
loaded and executed. To load the object file from cassette, the SYSTEM mode is 
used once again to load the file named at assembly time. 

To load the object file from disk, we must first get back to the Disk Operating 
System, and then use the LOAD command: 

*B 

DOS READY 
LOAD SQROOT/OBJ 
DOS READY 

The object file is located by the LOAD command but it is not executed. It is just 
as well, as we were not set up properly to execute the SQROOT program. 
Where is SQROOT loaded? The ORG command establishes the starting point 
for the program, which in all cases in this book is 7 POOH. The ORG command 
can be modified to make the load point compatible with your system; just put 
in a new argument in place of 7F00H. If you want a square root subroutine at 
OFOOOH in a 48K Model I, for example, reassemble with "ORG OFOOOH." It may 
also be necessary to protect the memory area in which the object program was 
loaded by responding with one less than the ORG point when BASIC asks the 
question "MEMORY SIZE?". 

Now that we have the program loaded, what do we do with it? We'll answer 
that question in the last part of the chapter in which we'll show you an easier 
way to work with the subroutines in this book when they are interfaced to 
BASIC. 

Using the Model II Assembler 

The edit, assembly, and load process is similar for the Model II. The Model II, 
however, uses the Radio Shack Disk Assembler, which is a more sophisticated 
editor/assembler. There is also a version of the Radio Shack Disk Assembler 
available for the Model I and III. Use of this assembler is beyond the scope of 
this book. The author's Radio Shack book "More TRS-80 Assembly-Language 
Programming," goes into some detail on the Disk Assembler. 

Keying In the Object Code Directly 

The assembly process can be bypassed completely by working with the object 
code alone and T-BUG (Rad io Shack's Debug package for cassette-based sys- 
tems) or DEBUG (Radio Shack's Disk Debug Package). A DEBUG utility is also 
present on the Model II system. The result can be saved on cassette or as a disk 
"core image" file. Let's see how this can be done by using the DEBUG program 
on a disk-based system. 
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The modify memory command "M" in DEBUG can be used to enter the data 
one byte at a time. The format of the M command is "MHHHH space," where 
HHHH is the hexadecimal address for the start of the memory area. Choose 
any memory area that is nonconflicting with TRSDOS or BASIC and in which 
you'd like the subroutine to reside. Now go to the listing and key in each byte 
in hexadecimal, following each byte with a space, and the last byte with an 
ENTER. The process is shown in figure 2-2, where a portion of SQROOT has 
been keyed into the memory area starting at 9000H. 



FIGURE 2-2 Keying in object code using DEBUG. 
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\ SIX BYTES KEYED IN 

NEXT BYTE FOR 9006H AT 9000H-9005H 



The machine code values shown on the listings do not have to be modified 
unless the subroutine will not be used in conjunction with BASIC. In this case, 
substitute the OOH code (a "NOP" instruction) for each byte of the starred 
instructions. The hexadecimal machine code is relocatable and can be used 
anywhere in memory. 

After the data has been keyed in, perform a "G66" to reboot TRSDOS and 
dump the memory area by a "DUMP"- command as follows: 



DUMP (START= X'SSSS',END= X'EEEE') 



where SSSS is the starting address in hexadecimal and EEEE is the ending ad- 
dress in hexadecimal. 

The memory image will now be written out as a "core image module" with 
the file extension "IC\M." It can be loaded by the TRSDOS LOAD command in 
the same fashion as the assembly object file. 



Using Assembly Language with Model I and ill BASIC 



There are two general approaches to using assembly-language code with 
BASIC. The first of these uses two modules, an object code module and a 
BASIC program module loaded at separate times. The second method embeds 
the machine-language code in BASIC statements which then become part of 
the BASIC program. 
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The "Two-Module" Approach 



Let's look at the "two module" approach first. In this approach, the object 
program from assembly or debug dump is loaded first with TRSDOS. Then the 
BASIC interpreter is loaded and the memory area in which the object program 
was loaded is protected with the "MEMORY SIZE? " response. Now the BASIC 
program can call the assembly-language subroutine at will. 

How the BASIC program calls the machine code is slightly different between 
Level II BASIC and Disk BASIC. Level II requires that the address of the machine 
code be put into locations 16526 and 16527. All addresses in the Z-80 are 
stored, least significant byte followed by most significant byte; so a typical 
sequence to establish the call address for Level II BASIC might be as follows for 
a machine-language program at 7F00H: 

100 POKE 16526,0 'least significant byte 

110 POKE 16527,127 'most significant byte 

In Disk BASIC on the Model I or III, the call address is established in simpler 
fashion. The address of the machine-language subroutine is assigned a number 
from to 9. A DEFUSR statement is then used to establish the address: 



100 DEFUSR0=&H7F00 



where &H is the prefix for hexadecimal. 

Once the address is established, the machine-language subroutine can be 
called by a BASIC USR statement of the form A= USR(M) for Level II or 
A= USRn(M) for Disk BASIC. The n in the Disk BASIC version stands for the id 
number from through 9. The M is an integer argument that can be automati- 
cally passed to the machine-language subroutine. The A is an integer argument 
that is passed back from the machine-language subroutine. Either or both of 
these arguments can be "dummies" if no arguments need to be passed. 

To see how the complete sequence works, let's call the SQROOT subroutine. 
Assume that it has been loaded at 7F00H and BASIC has protected memory by 
a "MEMORY SIZE? 3251 1 ." We see from the listing that the SQROOT subrou- 
tine takes a 16-bit number and computes the integer square root, passing the 
argument back in HL. The following code would set up the call address in Level 
II BASIC, make the call, and return the result for printing: 

100 POKE 16526,0 'least significant byte 

110 POKE 16527,127 'most significant byte 

120 INPUT X% 'input square 

130 Y= USR(X%) 'call machine lang SQROOT 

140 PRINT X%,Y 'print square, root 

The sequence for Disk BASIC would be similar: 

100 DEFUSR0=&H7F00 'address 
110 INPUT W% 'input square 
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120 Z= USRO(W%) 'call machine lang SQROOT 

130 PRINT W%,Z 'print square, root 



in both cases, the argument passed to the SQROOT subroutine was the integer 
variable in the USR call. The argument passed back was the variable equated to 
the USR call. 

In some subroutines, no arguments are required, or only one argument is 
needed. In these cases either a dummy argument, such as 0, may be used, or a 
variable that is not used elsewhere may be used. The SCDOWN subroutine, for 
example, scrolls the screen down one line and requires no input or output 
arguments. The call (assuming that the address has been set up) would be: 



200 A= USRO(O) 'scroll screen down 



and the A variable would be ignored. 



Embedding Machine Language in BASIC 

The second method for interfacing BASIC and assembly language is to embed 
the machine-language code in BASIC. There are a number of methods for 
doing this. 

Taking the example of the SQROOT subroutine, let's look at one method that 
uses DATA values. The decimal values for the machine-language code of 
SQROOT is placed into a DATA statement; 

100 DATA 1 97,21 3,205,1 27,1 0,6,255,1 7,255,255,4,25,27 
110 DATA 27,56,250,1 04,38,0,209,1 93,1 95,1 54,1 0,201 

The DATA values are then moved to a known area of memory on the first pass 
through the BASIC code. Let's use 7F00H again: 

120 FOR 1 = TO 24 'loop 
130 READ A 'read DATA value 

140 POKE 15212+ l,A 'store value 
150 NEXT I 'loop 25 times 

After the loop is done, the DATA values have been moved to the 7F00H area, 
and the machine-language code can be called in the usual fashion after setting 
up the address in 16526,16527 or with a DEFUSRn statement. This procedure 
will work with all of the subroutines in this book. 

Is there a way to avoid using a predefined area, a way to make the procedure 
more automatic? Yes, with qualifications. Machine-language code can be em- 
bedded in strings, arrays, and even BASIC statements, but there may be some 
problems with this method. Again taking the SQROOT subroutine as an exam- 
ple, let's construct a string of machine-language values and then call the string. 
We can set up the string by: 

100 A$=CHR$(1 97)4- CHR$(21 3)4- CHR$(205). . . . 4-CHR$(201) 
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One statement can be used if the number of characters in the line does not ex- 
ceed the maximum line length of 255 characters. If there is not enough room in 
one line, two strings can be established and the two can then be concatenated 
into a third. 

Where is the machine-language code in this case? It's somewhere in the string 
variable region at the top of memory. We can find out where it is by using the 
VARPTR function. The VARPTR function will return the location of the string 
parameter block. The string parameter block holds the length of the string and 
the string address as shown in figure 2-3. We can then put the string address 
into locations 16526, 16527 or use it in a DEFUSRn statement. A sample call of 
SQROOT using this technique is shown here: 

100 A$=CHR$(197)+CHR${213)-f CHR$(205)-f . . . +CHR${201) 
110 B= VARPTR(A$) 'get string parameter block location 
120 POKE 16526,PEEK(B-H) 
130 POKE 16527,PEEK(B-F2) 
140 A=:USR(M) 

where M is the square and A is the square root returned. 
For Disk BASIC, the sequence would be similar: 

100 A$ = CHR$(197)-t-CHR$(213)-l-CHR${205)+ . . . -HCHR$(201) 

110 B=VARPTR(A$) 

120 C= PEEK(B-f 1 )+ PEEK(B-F2)*256 

130 IF C> 32767 THEN C=C-65536 

140 DEFUSR0=C 

150 A= USRO(M) 



B-VARPTR (AS) 



B POINTS TO 



+0 

+ 1 
+2 



LENGTH OF STRING 




STRING ADDRESS 
LSB, MSB FORMAT 





STRING ADDRESS 
POINTS TO . . . 



"STRING EXAMPLE" 

FIGURE 2-3 String parameter block format. 



The IF . . . THEN statement is necessary because of a quirk of BASIC. It does 
not handle addresses well as integer arguments, and the subterfuge above is 
necessary to "fool" the interpreter into thinking that the 16-bit memory address 
is a signed integer value. 
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Now, there's one strong bit of advice that we must give. If you use the above 
method, be aware that everything in BASIC moves! Any time that BASIC en- 
counters a new variable, a new array, or computes a new string, variables are 
readjusted. Periodically, string variables are "cleaned up," and this is done at 
unpredictable times. Therefore, when using the VARPTR to find the address of 
a string, do so only directly before the USR call, and make certain that no new 
variables are introduced in the call. 

There are other methods similar to the above for embedding machine language 
in BASIC code. They all rely on using VARPTR to find the location of a string or 
array. The string could be a dummy string in a program statement, for example. 
The string 

100 AS = "Thus IS A DUMMY STRING!!!" 

has 25 characters and can accommodate the 25 bytes of the SQROOT subrou- 
tine. Another advantage of this approach is that in this case the string is at a 
fixed location in memory — as long as the program statements do not change 
(no edits allowed). The machine-language values can be picked up from DATA 
statements and stored in the dummy string, and a VARPTR could then be used 
to find the dummy string location. 

Another method is to establish a large array by a statement similar to DIM 
AA(1 00). DATA values can now be stored in the array and a VARPTR done with 
the first element of the array to find the start of the contiguous area for the array. 
(Don't try this on string arrays!) 

100 B= VARPTR(AA(0)) 

Here again, do not introduce any new variables after finding the VARPTR ad- 
dress or the address will be incorrect. (New variables are placed before the 
array areas and the array areas are moved down!) 

In the subroutines that follow we will assume that they are located in 7F00H. If 
you wish to use one of the methods described above to embed the machine- 
language code in your programs, that is perfectly feasible as long as you follow 
the rules. However, be careful of variables that move and things that go bump in 
the RAM! 



Passing Multiple Arguments 

In many of the subroutines in this book, it's necessary to pass more than one 
argument to the subroutine and back from the subroutine. Take the MOVEBL, 
or Move Block, subroutine. MOVEBL moves a block of memory from one area 
of memory to another area of memory. Three parameters are involved — the 
address of the existing block (the "source" address), the address of the "desti- 
nation," and the number of bytes to move. All are 16-bit values. 

The USR calling sequence allows only one 16-bit value to be passed. How do 
we pass three 16-bit addresses? The way we have established as a standard for 
the subroutines in this book is to pass the address of a "parameter block." The 
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parameter block holds the necessary parameters in a predefined order. The 
parameter block may be anywhere in memory, either at a fixed location or in a 
string or array. As an example, assume that the MOVEBL subroutine is located 
at FF06H. The parameter block could be six bytes before, starting at OFOOOH, 
and we'd have this Disk BASIC calling sequence: 

100 DEFUSRO= &HF006 'address of subroutine 

110 POKE 61440-65536,0 'source add ress= 8000 H 

120 POKE 61441-65536,128 

130 POKE 61442-65536,0 'destination add ress= 9000 H 

140 POKE 61443-65536,144 

150 POKE 61444-65536,0 '256 bytes 

160 POKE 61445-65536,1 

170 A= USR0(61 440- 65536) 'move block 

In this BASIC code, we first defined the address of the subroutine as 0F006H by 
the DEFUSRO. Next we POKEed the source address into OFOOOH and 0F001 H, 
least significant byte followed by most significant byte (0,128 becomes 
128*256+ 0= 8000 hi). Then we POKEed the destination address into OF002F4 
and 0FOO3H (0,144 becomes 1 44*256+ 0=9000H). Next, we POKEed the num- 
ber of bytes intoOF004H andOFOOSH (0,1 becomes 1 *256 + = 256). Finally, we 
called the subroutine by the USRO call with the input argument equal to the 
start of the parameter block at 61440 (OFOOOH). Note that we had to use the trick 
of subtracting 65,536 from the addresses in order to use the POKE and USR 
statement with BASIC integer values. 

Alternatively, you could put the arguments in a dummy CHR$ string or dummy 
string and use VARPTR to find the string address, or you could put the argu- 
ments in an array and use VARPTR to find the first element of the array. (Just 
follow the rules, and make certain that no new variables are introduced after 
the VARPTR finds the address!) 



Using Assembly Language on the Model II 

The general approach for the Model II is virtually identical to that used on the 
Models I and III. The calling sequence uses the DEFUSRn and USRn formats of 
Model I/I 1 1 Disk BASIC. The major difference is in the Model ll's approach to 
passing arguments to the machine-language subroutine and back to the BASIC 
program. 

Two system subroutines, FRCINT and MAKINT, are used in place of the ma- 
chine-language code in place of ROM subroutines atOA7FH and 0A9AH. If you 
are using these subroutines on a Model II together with a BASIC program, you 
may reassemble with the calling sequence given in the Model II BASIC refer- 
ence manual. The two calling sequences would be substituted in place of the 
"starred" "CALL 0A7FH" or "JP 0A9AH." If you are not using a BASIC pro- 
gram, then many of the subroutines in this book may be used "stand alone" by 
replacing the starred instruction bytes with zeroes (NOPs). 
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How to Use the Subroutines in This Book 



Now we come to the most important part of these two chapters — how do we 
use the subroutines in this book? 

To use any of the 65 subroutines, follow this procedure: 

1. Read the description of the subroutine. See if it can be used on your system. 
Note what parameters are involved and how large (8 or 16 bits) each one is. 

2. if the subroutine is to be used without BASIC and called from your own 
assembly-language code (including Model II code), reassemble the subroutine 
to create your own source file, or create a machine-language core image mod- 
ule using T-BUG or BASIC. Put a OOH byte in every instruction byte that is 
marked with asterisks. This NOPs the calls to BASIC ROM routines that pass 
parameters. (On reassemblies, leave out these instructions.) 

3. If the subroutine is to be embedded in BASIC, put the decimal values into 
DATA statements, and write the BASIC code to move the subroutine to a fixed 
area or variable area as outlined above. 

4. Call the subroutine from BASIC or your own assembly-language code with 
the proper number of arguments. The subroutine may require no arguments, in 
which case dummy arguments would be used in BASIC. The subroutine may 
require one input argument, in which case the USRn call would specify a single 
integer argument. The subroutine may require one output argument, in which 
case the USRn call would specify a dummy input argument with a valid output 
argument. The subroutine may require multiple arguments, in which case the 
USRn call would specify the address of the parameter block containing the argu- 
ments. In assembly-language calls, the arguments are also held in a parameter 
block pointed to by the HL register pair. 

Here are some additional rules: 

1. For assembly-ianguage calls only: HL contains the single argument on 
input, the single output argument, or the address of the parameter block. 

2. For assembly-language calls only: Most subroutines save all registers. The 
ones that do not are clearly denoted. 

3. For assembly-language calls only: The stack pointer is assumed initialized 
before the call. 

4. All subroutines have relocatable code. 

5. All listings have been assembled at 7F00H. The ORG point must be 
changed if you are reassembling at a specific area for a "two module" load. If 
you are using only the machine code, it is correct as it stands. 

6. Certain assemblers have minor bugs in instruction formats; instructions 
may not assemble properly. The assembler used in these subroutines corrects 
some of the assembly errors. If your assembler does not assemble the source 
code as listed, your assembler may be flawed! 

7. Error checking in these subroutines is minimal. In other words, it may be 
easy to blow up the system with improper arguments. This was done to keep 
the subroutines short. Checks should be made for proper arguments before 
calling the subroutine. 
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8. Every effort was made to keep the subroutines relocatable. Some of the 
resulting code may not be good programming practice in nonrelocatable code. 
So be it. 

9. We have purposely stayed away from ROM subroutine calls because of the 
possibility of ROM changes. Those ROM calls that are used are clearly marked. 

10. Tables have generally been avoided because of relocatability problems 
resulting in linear code. Here again, this may not be code to emulate in non- 
relocatable environments. 

11. Nested subroutines within the subroutines have been avoided because 
of relocatability problems resulting in linear code. Again, this was done for 
relocatability. 

12. Names of subroutines and labels are nonconflicting. You may assemble 
all subroutines together en masse without fear of duplicate labels on assembly. 

13. All loops are indented in the comments column. Each level of loop is 
indented two spaces. Block moves and compares are essentially loops and are 
indented. 

TALSEX: TRS-80 Assembly-Language 
Subroutines Exerciser Program 

Figure 2-4 shows the complete listing of TALSEX. It is a Model 1/1 II Disk BASIC 
program that we have used to exercise (and hopefully exorcise) all of the sub- 
routines in this book. You will probably not want to use TALSEX, but we'll 
describe how it works in case some of the code is helpful in your BASIC inter- 
facing. All of the sample calls for the subroutines are the output of one test 
case of TALSEX. 

TALSEX first asks for the name of the subroutine. The name is then displayed on 
the screen and printed on the system printer. Next, TALSEX asks for the value to 
be put into HL. If no argument is required, ENTER may be pressed, otherwise 
the argument value is entered. 

Next, the parameter block location is entered. This may be any area in free 
memory. If multiple arguments are being used in the subroutine, the HL value 
corresponds to the parameter block location. The values to be put into the pa- 
rameter block are then input in the form N,V. (N is 0, 1, or 2.) If N is 1, the 
following value V will be 8 bits long. If N is 2, the following value V will be 16 
bits long. An input of 0,0 terminates the input. 

Next, TALSEX asks for a memory block location. If the subroutine uses a mem- 
ory block, this value is input, otherwise ENTER is pressed. Values are then 
entered into the memory block as required. The memory block may be any- 
where in free memory. A 0,0 input terminates the operation. A second memory 
block location may then be input, and values stored in this block. 

Now, TALSEX asks for a location at which the assembly-language subroutine 
should be located. TALSEX assumes that the subroutine is currently in memory 
at 7F00H (from a LOAD operation in DOS). When this value is input, TALSEX 
moves the subroutine from the 7F00H area to the specified memory area to test 
relocatability. 
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The subroutine is then called with HL containing the specified value, and the 
parameter block and two memory blocks containing the specified data. 



On return, the input and output values for HL, the parameter block, and the 
memory blocks are displayed and printed. 



FIGURE 2A TALSEX i isting. 

1000 CLS: PRINT "TRS-80 ASSEHBLY LANGUAGE SUBROUTINES EXERCISER" 
1005 DIM 10(49) 

1010 PRINT: PR INT: LF> R INT: LPRINT 

1015 HL=70000! PB=rmmm: mi =70000." M2-70000 : ZI=0 

1017 FOR 1=0 TO 49: IO<I)=-i: NEXT I 

1020 A*="NAME OF SUBROUTINE": PRINT A*;: LPRINT A *;"? 
1030 INPUT A*: LPRI IMT A* 

1040 A*="HL VALUE": PRINT A*;: LPRINT A*; " ? "; 
1050 A$=" " : INPUT A*: LPRINT A* 
1055 IF A*="" GOTO 1070 

1060 HL=VAL(A*)! IF HL>32767 THEN HL=HL-65536 

1070 A$=" PARAMETER BLOCK LOCATION" : PRINT A*;: LPRINT A*;"? "5 
1080 A$=" " : INPUT A*: LPRINT A* 
1085 IF GOTO 1220 

1090 PB=VAL(A$): IF" PB>32767 THEN PB=PB--65536 

1100 A$=" PARAMETER BLOCK VALUES?" : PRINT A*: LPRINT A* 

1200 ZA=HL: GOSUB 10000 

1220 A*="MEMORY BLOCK 1 LOCATION": PRINT A$ ; : LPRINT A* ; » ? "; 
1230 A*=" " : INPUT A* : LPRINT A* 
1235 IF A$="" GOTO 1320 

1240 M1=VAL<A*): IF" Ml>32767 THEN Ml=Ml-65536 

1250 A*="MEMORY BLOCK 1 VALUES?": PRINT A$ : LPRINT A$ 

1260 ZA=Ml: GOSUB 10000 

1270 A$="MEMORY BLOCK 2 LOCATION": PRINT A*;: LPRINT A*;"? "; 
1280 A$=" " : INPUT A'*: LPRINT A* 
1285 IF A*="" GOTO 1320 

1290 M2=VAL<A*): IF" M2>32767 THEN M2=M2-65536 

1300 A!r>=" MEMORY BLOCK 2 VALUES?" : PRINT A$ : LPRINT A$ 

1310 ZA=M2: GOSUB 1 0000 

1320 A$="MOVE SUBROUTINE TO": PRINT A$: LPRINT A*;"? 
1330 INPUT A*: LPRINT A* 

1340 SL=VAL(A*) : IF SL>32767 THEN SL=SL-65536 

1350 FOR 1=32512 TO 32767 

1 360 POKE C SL+ 1 -325 1 2)5 PEEK ( I ) 

1370 NEXT I 

1380 DEFUSR0=SL 

1390 H1=USR0<HL) 

1395 IF SL<0 THEN SL=SL+65536 

1400 A$=" subroutine: EXECUTED AT PRINT A*;SL: LPRINT A$;SL 
1410 A*=" INPUT: OUTPUT: " : PRINT A*: LPRINT A* 

1412 ZI==0 

1415 IF HL = 70000 GOTO 1520 

1417 IF HL<0 THEN }~IL=HL+65536 

1418 IF HK0 THEN HI 1 =Hi +65536 

1420 A*="HL=": PRIMT A* ; HL r A* ; H 1 : LPRINT A*;HL7 A$;H1 

1430 IF PB=70000 GOTO 1480 

1440 A$="PARAM": ZA = PB 

1460 GOSUB 12000 

1480 IF Ml =70000 SOTO 1520 

1485 A*="MEMB1": ZA=M1 

1490 GOSUB 12000 

1500 IF M2=70000 GOTO 1520 

1505 A$="MEMB2": ZA==M2 

1510 GOSUB 12000 

1520 GOTO 1010 

10000 'SUBROUTINE TO INPUT? LIST) PRINT? AND STORE VALUES 
10005 'ENTER WITH ZA=MEMORY BLOCK START 
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10008 ZN=ZA 

10010 PRINT"+" ;2N-ZA; :LPRINT " + " ; ZN-Z A ; : I NPUT ZL^ZV: LPRINT ZL;ZV 
10020 IF ZL=0 GOTO 10060 

10030 POKE ZN> ZV-INT<ZV/256)*256: 10 < Z I ) =Z V-I NT ( Z V/256 ) *256 

10040 IF ZL.==2 THEN POKE ZN+1 , INT ( ZV/256 ) : 10 ( Z I + l ) = INT ( ZV/2r36 ) 

10050 ZN=ZN+ZL: ZI=ZI+ZL 

10055 SOTO 10010 

10060 IO(ZI)=-l: ZI=ZI+1 

10070 RETURN 

12000 'SUBROUTINE TO OUTPUT VALUES FROH PARAMETER BLOCK 
12010 'OR MEMORY BLOCK 

12020 'ENTER WITH A$=TITLE! ZA=BLOCK START, ZI=IO<) INDEX 
12030 2N=0 

12040 ZB=IO(ZI): IF ZB=-1 GOTO 12090 

12045 IF ZN<10 THEN ZN*=STR$ ( ZN ) +" " ELSE ZN$=STR*(ZN) 
12050 PRINT A»; "+" ;ZN*;ZB? A*; "+" ;ZN*;PEEK(2A+ZN) 
12060 LPRINT A*; "+" ; ZN* ; ZB » A$ ; " + " ; ZN* ; PEEK ( ZA+ZN ) 
12070 ZN=ZN+15 ZI=ZI+l: GOTO 12040 
12090 ZI=ZI+1 : RETURN 



What to Do if You Have Trouble 

Every effort has been made to thoroughly check out and debug the subroutines 
in this book. If you find errors, follow this procedure: 

1. If you are not using the subroutines exactly as listed, please thoroughly 
check out your modifications. We simply can't be responsible for your changes — 
there's too much chance for error. We will be responsible, however, for use of the 
subroutine exactly as listed in the book. 

2. Verify that the subroutine checksums to the proper value as shown in the 
description. To do this, use the CHKSUM subroutine in the book, and check- 
sum the subroutine in question from start to end address. The checksum must 
compare to that given in the book. If it does not, you have entered the data 
incorrectly. 

3. Verify that the calling sequence and parameter values are proper. List the 
parameters directly before the call and see that they are within the limits im- 
posed by the subroutine. If they are not, the subroutine may indeed not work 
properly or may cause the system to crash. We can't be responsible for these 
cases. 

4. If you have done all of the above and feel there is still an error in the sub- 
routine, then fill out the following reporting form and send it to the author at: 

P.O. Box 3568 

Mission Viejo, CA 92692 

Your time and trouble are appreciated and the problem will be corrected for the 
next edition of this book. 



Source Programs on Disk 

A set of diskettes containing all source programs is available from the author. 
For information, please send a self-addressed, stamped envelope to the above 
address. 
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TRS-80 Assembly-Language Sobroytines 
Error Reporting Form 



1. Subroutine name: 



2. I am using the identical code as shown in the book: Yes No 



3. I have check summed the data: Yes No 



4. Location of subroutine in memory: 



5. I am using the subroutine embedded in BASIC: Yes No 

6. I am using the subroutine as a stand-alone program (not embedded in 
BASIC): Yes No 

7. System: Model I Model II Model III 

8. Operating system: 



9. Assembler (if applicable): 



10. Input parameters: 



11. Output parameters: 
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12. Complete description of error (please attach BASIC listing, assembly list- 
ing, or any other data you find pertinent): 



13. Name: 

14, Address: 

Thanks for your time and trouble! 

Mail to: William Barden Jr., P.O. Box 3568, Mission Viejo, CA 92692 
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II 

TRS-80 ASSEMBLY- 
LANGUAGE 
SUBROUTINES 
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ABXBIN: ASCII BINARY TO BINARY CONVERSION 

System Configuration 

Model I, Model III, Model II Stand Alone. 

Description 

ABXBIN converts a string of ASCII characters representing ones and zeroes to a 
16-bit binary number. Each character in the string is assumed to be either an 
ASCII one (.30 H ) or an ASCII zero (31 H). The string may be from zero to 16 bytes 
long, but is terminated with a byte of all zeroes. 

Input/Output Parameters 

On input, the HL register pair contains a pointer to the string of characters. 
On output, HL contains the binary number of through 65,535. 
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INPUT 



OUTPUT 



H L 

1 

POINTER TO MEM 1+0 



H L 

1 

RESULT, 0-65535 



MEM 1+0 

+ 1 
+2 
+3 
+4 
+5 
+6 

LAST 



ASCII 
STRING 
OF ■■0" 
AND "I" 



MEM 1+0 

+ 1 



+2 
+3 
+4 
+5 
+6 

LAST 



-- UNCHANGED 



UNCHANGED 



Algorithm 

A result of 0000000000000000 is first cleared in the IX register. 

Each character is read from the string, moving from left to right. The character is 
first tested for a null, which marks the end of the string. If a null is found, the 
conversion is over. 

If the character is not a null, it is assumed to be either an ASCII zero (30H) or 
one (31 H). A value of 30H is subtracted from the character to yield a binary 
value of 00000000 or 00000001. This value is then added to the result in IX. 
Effectively, this merges the current or 1 bit into the least significant bit posi- 
tion of the IX register. As the IX register is added to itself to cause a "shift left" 
one bit position at the start of each iteration of the loop, successive and 1 bits 
move toward the left of the result. The value in IX at the end of the string 
represents the converted binary value. 

Note that the shift is done after the test for null; this ensures that the last binary 
or 1 remains in the least significant bit of IX. 

If the ASCII string was 30H, 31 H, 31 H, 30H, 31 H, OOH, the result in IX would be 
0000000000001101. 



Sample Calling Sequence 



NAME OF SUBROUTINE? ABXBTN 
HL VALUE? 40000 
PARAHETER BLOCK LOCATION? 



MEMORY 
MEMORY 



BLOCK 
BLOCK 

49 

49 

49 

48 

49 

49 

TERMINATOR 



LOCATION? 40006 
VALUES? 



111011 IN ASCII 



32 



+ 700 

MEMORY BLOCK £: LOCATION? 
MOVE SUBROUTINE TO? 38000 
SUBROUTINE EXECUTED AT 38000 



INPUT: 






OUTPUT 






HL.= 40000 




HL=- 59 


RESULT 


MEMB1+ 





49 


MEMB 1 + 





49 - 




MEMB1+ 


1 


49 


MEMB1+ 


1 


49 




MEMB1+ 


2 


49 


MEMB 1 + 


2 


49 




MEMB1+ 


3 


48 


MEMB 1 + 


3 


48 




MEMB1+ 


4 


49 


MEMB1+ 


4 


49 




MEMB1+ 


5 


49 


MEMB1+ 


5 


49 




MEMB1+ 


6 





MEMB1+ 


6 








NAME OF SUBROUTINE? 

Notes 

1 . If the string of ASCII characters is longer than 16 bytes, ABXBIN will return 
a result that represents the last 16 characters of the string. 

2. If any character in the string is not a 30 H or 31 H, ABXBIN will return an 
invalid result; no check is made of the validity of the ASCII characters. 



Program Listing 



7F00 



7F00 F5 
7F01 D5 

7F02 DDES 
7F04 CD7F0A 
7F07 I)D2 10000 
7F0B 1600 
7F0D 7E 
7F0E B7 
7F0F 2B0A 
7FH DD29 
/F13 D630 
7F15 5F 
7F16 DDI 9 
7F18 23 
7F19 18F2 
7F1B DDES 
7F1D El 
7F1E DDE! 
7F20 Dl 
7F21 Fl 
7F22 C39A0A 
7F25 C9 
0000 

00000 TOTAL 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
0035:0 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
RRORB 



ORG 7F00H 5 0522 

;**♦*#****************#****#*********«♦♦****«*****#***«*# 
!* ASCII BINARY TO BINARY CONVERSION. CONVERTS A STRING * 
•* OF ASCII CHARACTERS REPRESENTING ZEROES AND ONES TO * 
;* BINARY. * 
INPUT: HL.=> STRING OF CHARACTERS, TERMINATED BY * 
;* NULL CHARACTER. * 

-,* OUTPUT! HL=B I NARY NUMBER FROM - 65535 * 
; *♦###*«*****■«•**#*«♦* **#*■#***»** ##**«#«*«###*«♦« ##♦##«*«* 
; 



ABXBIN 



ABX010 



ABX020 



PUSH 


AF 


PUSH 


DE 


PUSH 


IX 


CALL 


0A7FH 


LD 


IX, 


LD 


D, 


LD 


A, (HL) 


OR 


A 


vTR 


7, ABX020 


ADD 


IX, IX 


SUB 


30H 


LD 


E, A 


ADD 


IX, DE 


INC 


HL 


JR 


ABX010 


PUSH 


IX 


POP 


HL 


POP 


IX 


POP 


DE 


POP 


AF 


JP 


0A9AH 


RET 




END 





;SAVE REGISTERS 



;**#GET STRING LOC'N*** 

; CLEAR RESULT REGISTER 

;for LOOP 

;6ET NEXT ASCII CHAR 

; TEST FOR NULL (END) 

;60 IF END 

; SHI FT LEFT ONE 

; CONVERT ASCII TO OR 1 

;now IN e 

; MERGE WITH PREVIOUS 

; POINT TO NEXT CHARACTER 

;L00P 'TIL END 

; TRANSFER RESULT 

; RESULT NOW IN HL 

; RESTORE REGISTERS 



;***RETURN ARGUMENT*** 
; NON-BASIC RETURN 
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ABXBIN DECIMAL VALUES 



245, 213! 221, 229, 205, 127, 10, 221, 33, 0, 
0, 22, 0, 126, 183, 40, 10, 221, 41, 214, 
48, 95, 221, 25, 35, 24, 242, 221, 229, 225, 
221, 225, 209, 241, 195, 154, 10, 201 



CHKSUM= 62 



ADEBCD: ASCII DECIMAL TO BCD CONVERSION 



System Configuration 

Model i, Model III, Model II Stand Alone. 

Description 

ADEBCD converts a string of ASCII characters representing ones and zeroes to 
a string of bed digits. Each character in the ASCII string is assumed to be either 
a valid ASCII character in the range of (30H) through 9 (39H). The ASCII string 
may be from zero to any number of bytes long, but is terminated with a byte of 
all zeroes. The result string of bed digits consists of two bed digits per byte, with 
a terminator of a "nibble" of ones. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the address of the ASCII string in 
standard Z-80 address format, least significant byte followed by most significant 
byte. The next two bytes of the parameter block contain the address of the 
result string in the same format. 

On output, the parameter block and ASCII string are unchanged. The result 
string contains a bed digit in one nibble (4 bits) for each byte in the ASCII string 
and a final nibble of ones. 



INPUT 



POINTER TO PARAM+0 



OUTPU T 
H . L 



UNCHANGED 



PARAM+0 



+ 1 



POINTER TO 
ASCII STRING 
(MEM 1+0) 



POINTER TO 
RESULT STRING 
(MEM2+0) 



PARAM+0 

+ 1 
+2 
+3 



UNCHANGED 



UNCHANGED -- 
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LAST 



MEM2+0 

+ 1 
+2 
+3 
+4 
+5 
+6 



RESERVED 
FOR 
RESULT 
STRING 



MEM2+0 

+ 1 
+2 
+3 
+4 
+5 
+6 

LAST 



BCD 
RESULT 
STRING 



1111 



0000 



(or xxxxl 111) 



Algorithm 

The ADEBCD subroutine performs one conversion for each ASCII digit. The 
ASCII string address and result string addresses are first picked up from the 
parameter block and put into DE and HL, respectively. 

The next ASCII character is then picked up from the ASCII string. A test is made 
for all zeroes. If the character is all zeroes a jump is made to ADE020. 

A value of 30 H is subtracted from the ASCII character to convert it to a bed 
value of through 9. An RLD is then done to rotate the least significant four bits 
of A into the result nibble. The ASCII address in DE is then incremented by one, 
and the next ASCII character is picked up, converted, and stored. The ASCII 
string pointer is again incremented to point to the next byte. The result pointer 
in HL is then incremented to point to the next bed byte. A loop is then made 
back to ADE010. 

The final action is to store all ones at the next bed nibble position by either an 
RRD or RLD, depending upon the current bed digit position. 

The RRD instruction shifts the least significant four bits of the A register and the 
memory location pointed to by HL in a four-bit bed shift to the right. The RLD 
shifts left four bits in similar fashion. 

If the ASCII string was 34H, 35H, 36H, 37H, 35H, OOH, the result in the bed 
string would be 45H, 67H, 5FH. 
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Sample Calling Sequence 



NAME OF SUBROUTINE? ADEBCD 
HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 
PARAMETER BLOCK VALUES? 



+ 

+ 2. 2 
+ 4 
MEMORY 
MEMORY 



POINTS TO ASCII STRING 
POINTS TO RESULT STRING 



LOCATION? 

VALUES? 



3 

4 
MEMORY 
MEMORY 
+ 1 
+ 1 1 
+ 2 



47777 
48888 


BLOCK 1 
BLOCK 1 

49 
57 
50 


TERMINATOR 
BLOCK 2 LOCATION? 
BLOCK 2 VALUES? 



47777 



192 IN ASCII 



48888 



CLEAR RESULT FOR EXAMPLE 



MOVE SUBROUTINE TO? 45555 
SUBROUTINE EXECUTED AT 45555 



INPUT: 






OUTPUT: 






HL= 40000 




HL= 40000 




PARAM+ 





161 


PARAM+ 





161 ~ 


PARAM+ 


1 


186 


PARAM+ 


1 


186 


PARAM+ 




248 


PARAM+ 




248 


PARAM+ 


3 


190 


PARAM+ 


3 


190 


MEMB1+ 





49 


MEMB 1 + 





49 


MEMB1+ 


1 


57 


MEMB1+ 


1 


57 


MEMB 1 + 




50 


MEMB1+ 




50 


MEMB1+ 


3 





MEMB 1 + 


3 


_ 


MEMB2+ 








MEMB2+ 







MEMB2+ 


1 





MEMB2+ 


1 





UNCHANGED 



192FH = BCD 192 



NAME OF SUBROUTINE' 



Notes 



1. An invalid result will occur if the ASCII string contains invalid ASCII deci- 
mal digits. 

2. The terminator of all ones in the result string will be in the left-hand nibble 
of the result string byte {with garbage in the right-hand byte) for an even num- 
ber of bed digits, and in the right-hand nibble of the result string byte (preceded 
by the last bed digit) for an odd number of bed digits. 

Program Listing 



7F00 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 



ORG 7F00H ; 0522 



ASCII DECIMAL TO BCD CONVERSION. CONVERTS A STRING 
OF ASCII CHARACTERS REPRESENTING DECIMAL DIGITS TO 
TO BINARY-CODED-DECIMAL. ; 
INPUT: HL=> PARAMETER BLOCK I 

PARAM+0, +1=L0CATI0N OF STRING OF CHARS, 
TERMINATED BY NULL CHARACTER 
PARAM+2 , +3=L0CAT I ON OF RESULT STRING 
OUTPUT: RESULT STRING HOLDS STRING OF BCD DIGITS, 
TERMINATED BY A NIBBLE OF ONES. 
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7F00 


F5 


00230 


ADEBCD 


PUSH 


AF 


;SAVE REGISTERS 


7F01 


D5 


002413 




PUSH 


DE 




7F02 


E5 


00250 




PUSH 


HL 




7F03 


DDES 


00260 




PUSH 


I X 




7F05 


CD7F0A 


00270 




CALL 


0A7FH 


;**#6ET STRINS LUC N*** 


7F08 


E5 


r7k -^s i-^ 

00280 




PUSH 


HL 


; TRANSFER Tu I X 


7F- 09 


DDE 1 


00290 




POP 


I X 




7F0B 


UUnJtlola 


00300 




LD 


E 5 < I X+0 ) 


1 rU 1 bUUHCE PNTR IN DE 


7F0E 


DD560 1 


00310 




LD 


D? ( 1 X+1 ) 




7F1 1 


TV TV / F"rHi- — a 

DD6E0^ 


00320 




LD 


C IX +2) 


; PUT DEST PNTR IN HL 


7F 1 4 


DD66B3 


00330 




LD 


H? ( I X+3 > 




7F17 


1 A 


00340 


ADE010 


LD 


Ai i DE ) 


;GET NEXT Character 


7F18 


B7 


00350 




OR 


A 


ITEST FOR NULL (END) 


7F19 


2005 


00360 




JR 


NZ 5 ADE020 


; GO I F Not end 


7F1B 


3D 


00370 




DEC 


A 


;ZERO to -1 


7F1 C 


ED67 


00380 




RRD 




; store terminator 


7F1E 


1816 


00390 




JR 


ADEO40 


; GO TO RETURN 


7F20 


D630 


00400 


ADE020 


SUB 


30H 


; CONVERT TO 0-9 


7F22 


ED6F 


00410 




RLD 




; STORE IN BUFFER 


7F24 


13 


00420 




INC 


DE 


; POINT TO NEXT CHARACTER 


7F25 


1 A 


00430 




LD 


A 5 (DE ) 


;GET NEXT CHARACTER 


7F26 


B7 


00440 




OR 


A 


;TEST FOR NULL (END) 


7F27 


2005 


00450 




JR 


NZ 5 ADE030 


;G0 IF NOT END 


7F29 


3D 


00460 




DEC 


A 


5 ZERO TO -1 


7F2A 


ED6F 


00470 




RLD 




; STORE TERMINATOR 


7F2C 


180S 


00480 




JR 


ADE040 


5 GO TO RETURN 


7F2E 


D63B 


00490 


ADE030 


SUB 


30H 


; CONVERT TO 0-9 


7F30 


ED6F 


00500 




RLD 




; STORE IN BUFFER 


7F32 


13 


00510 




INC 


DE 


; POINT TO NEXT CHARACTER 


7F33 


23 


00520 




INC 


HL 


;LOC'N FOR NXT 2 BCD DGTS 


7F34 


ISEl 


00530 




JR 


ADE01 


; LOOP 'TIL END 


7F36 


DDEl 


00540 


ADE040 


POP 


I X 


; RESTORE REGISTERS 


7F38 


El 


00550 




POP 


HL 




7F39 


Dl 


00560 




POP 


DE 




7F3A 


Fi 


00570 




POP 


AF 




7F3B 


C9 


00580 




RET 




; RETURN TO CALLING PROG 


0000 




00590 




END 







00000 TOTAL ERRORS 



ADEBCD DECIMAL VALUES 



24 5? 213! 22<^5 221 ? 229? 205 » 127! 10! 229? 221? 

225, 221? 94-5 05 221 5 86? 1 , 221 5 110? 2, 

221 ! 102. 3f 2:65 lEi3i 32! 5, 61, 237 1 1035 

24! 22 I 214i AS! 237? Ills 19i 26i 183! 32? 

5> 61? 237? 111! 24? 8? 214? 485 237? 111? 

195 35! 24 5 225 1 22 1? 225) 225! 209? 24 1» 201 



CHKSUM= 



ADXBIN: ASCII DECIMAL TO BINARY CONVERSION 



System Configuration 

MocJel 1, Model III, Model II Stand Alone. 



Description 

ADXBIN converts a string of ASCII characters representing decimal digits to a 
16-bit binary number. Each character in the string is assumed to be ASCI! 
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through ASCII 9 (BOH through 39H). The string may be from zero to 5 bytes 
long, but is terminated with a byte of all zeroes. The value represented by the 
string may be as large as 65,535. This conversion is an "unsigned" conversion 
producing a result of through 65,535. 

Input/Output Parameters 

On input, the HL register pair contains a pointer to the string of characters. 
On output, HL contains the binary number of through 65,535. 



INPUT 



OUTPUT 



H 



H L 



POINTER TO MEM 1+0 



RESULT, 0-65535 



MEM 1+0 

+ 1 



LAST 



STRING OF 
ASCII 
HEXADECIMAL 
CHARACTERS 

I 



MEM 1+0 

+ 1 



^ LAST 



UNCHANGED 



UNCHANGED 



Algorithm 

A result of 0000000000000000 is first cleared in the IX register. 

Each character is read from the string, moving from left to right. The character is 
first tested for a null, which marks the end of the string. If a null is found, the 
conversion is over. 

If the character is not a null, it is assumed to be a valid ASCII decimal digit of 
30H through 39H. A value of 30H is subtracted from the character to yield a 
binary value of 00000000 through 00001001. This value is then added to the 
result in iX. 

Prior to the add, the partial result in the IX register is multiplied by ten. This 
moved the partial result over one decimal digit position to the left. The value in 
IX at the end of the string represents the converted binary value. 

Note that the multiplication is done after the test for null; this ensures that the 
last value of through 9 remains in the least significant decimal digit position 
of IX. 

The multiply is done by a "shift and add" technique of three adds to shift three 
bits (multiply by eight) plus one add of the "times two" shift for a "times ten" 
result. 

If the ASCII string is 34H, 35H, 30H, 31 H, 31 H, OOH, the result in IX would be 
1010111111010011. 
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Sample Calling Sequence 



NAME OF SUBROUTINE? ADXBIN 
HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 

MEMORY BLOCK 1 LOCATION? 40000 

MEMORY BLOCK 1 VALUES? 



+ 


1 


49~ 




+ 1 


1 


50 




+ 2 


1 


51 


-12345 IN ASCII 


+ 3 


1 


52 




+ 4 


1 


53 




+ 5 


1 


TERMINATOR 


+ 6 










MEMORY 


BLOCK 2 LOCATION? 



MOVE SUBROUTINE TO? 37000 
SUBROUTINE EXECUTED AT 37000 



INPUT: 
HL= 40000 
MEMB1+ 
MEMB1+ 
MEMB1+ 
MEMB1+ 
MEMB1+ 
MEMB1+ 



1 
2 
3 
4 
5 



49 
50 
51 
52 
53 




OUTPUT: 
HL= 1 2345 
MEMB1+ 
MEMB1+ 
MEMB1+ 
MEMB1+ 
MEMB1+ 
MEMB1+ 



1 
2 
3 
4 
5 



RESULT 
491 
50 
51 
52 
53 
_ 



UNCHANGED 



NAME OF SUBROUTINE? 

Notes 

1. If the string of ASCII characters is longer than 5 bytes, or if the value repre- 
sented is greater t han 65,535, ADXBIN will return an invalid result. 

2. If one or more characters in the string are not valid ASCII decimal digits of 
30 H through 39H, ADXBIN will return an invalid result; no check is made of 
the validity of the ASCII characters. 



Program Listing 



7F00 



00100 ORG 7F00H 5 0522 

001 10 ; *******»*#■»(■**#********♦»*****»********♦************«««** 

00120 ;* ASCI I DECIMAL TO BINARY CONVERSION. CONVERTS A STRING* 

00130 ;* OF ASCII CHARACTERS REPRESENTING DECIMAL DIGITS TO * 

00140 ?* BINARY. * 

00150 !* INPUT s HL=> STRING OF CHARACTERS, TERMINATED BY * 

00160 ;* NULL CHARACTER, » 

00170 ;* OUTPUT s HL=BINARY NUMBER FROM - 65535 * 

001 80 ; ***♦#*«*#»■«■•»*•***»**♦**««**»**#«»#***#**»*#»**«*»#*#««#*♦* 

00190 ; 



7F00 


F5 


00200 


ADXBIN 


PUSH 


AF 


; SAVE REGISTERS 


7F01 


D5 


00210 




PUSH 


DE 




7F02 


DDES 


00220 




PUSH 


IX 




7F04 


CD7F0A 


00230 




CALL 


0A7FH 


;#«*GET STRING LOC'N»** 


7F07 


DD2 10000 


00240 




LD 


IX, 


; CLEAR RESULT REGISTER 


7F0B 


7E 


00250 


ADX010 


LD 


A, (HL) 


;GET next CHARACTER 


7F0C 


B7 


00260 




OR 


A 


;test for null (end> 


7F0D 


2815 


00270 




JR 


Z, ADX020 


;go if end 


7F0F 


DD29 


00280 




ADD 


IX, IX 


5 result times two 


7F11 


DDES 


00290 




PUSH 


IX 


; SAVE RESULT 



39 



7F13 


DD29 


00300 


ADD 


IX, IX 


; RESULT TIMES FOUR 


7F15 


DD29 


00310 


ADD 


IX, IX 


; RESULT TIMES EIGHT 


7F17 


Dl 


00320 


POP 


DE 


;GET RESULT TIMES TWO 


7F18 


DD19 


00330 


ADD 


IX, DE 


; RESULT TIMES TEN 


7F1A 


D630 


00340 


SUB 


30H 


; CONVERT TO 0-9 


7F1C 


5F 


00350 


LD 


E, A 


;NOW IN E 


7F1D 


1600 


00360 


LD 


D, 


SNOW IN DE 


7F1F 


DD19 


00370 


ADD 


IX, DE 


; MERGE WITH PREVIOUS 


7F2I 


23 


003S0 


INC 


HL 


; POINT TO NEXT CHARACTER 


7F22 


18E7 


00390 


JR 


ADX010 


!LOOF 'TIL END 


7F24 


DDES 


00400 ADX020 


PUSH 


IX 


; TRANSFER RESULT 


7F26 


El 


00410 


POP 


HL 


; RESULT NOW IN HL 


7F27 


DDEl 


00420 


POP 


IX 


; RESTORE REGISTERS 


7F29 


Dl 


00430 


POP 


DE 




7F2A 


FI 


00440 


POP 


AF 




7F2B 


C39A0A 


00450 


JP 


0A9AH 


;*«#RETURN ARGUMENT*** 


7F2E 


C9 


00460 


RET 




; NON-BASIC RETURN 


0000 




00470 


END 







00000 TOTAL ERRORS 



ADXBIN DECIMAL VALUES 



245, 213, 221, 229, 205, 127, 10, 221, 33, 0, 
0, 126, 183, 40, 21, 221, 41, 221, 229, 221, 
41, 221, 41, 209, 221, 25, 214, 48, 95, 22, 
0, 221, 25, 35, 24, 231, 221, 229, 225, 221, 
225, 209, 241, 195, 154, 10, 201 

CHKSUM= 211 



AHXBIN: ASCII HEXADECIMAL TO BINARY CONVERSION 



System Configuration 

Model I, Model III, Model II Stand Alone, 



Description 

AHXBIN converts a string of ASCII characters representing hexadecimal digits 
to a 1 6-bit binary number. Each character in the string is assumed to be either in 
the range of ASCII through 7 (30H through 37H) or ASCII A through F (41 H 
through 46H). The string may be from zero to 4 bytes long, but is terminated 
with a byte of all zeroes. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to the string of characters. 

INPUT OUTPUT 



H L 



+ 



POINTER TO MEM 1+0 



+ 



MEM 1+0 

+ 1 
+2 

Ui.ST 



STRING 
OF 
ASCII 
DECIMAL 
CHARACTERS 



H L 



RESULT, 0^65535 



MEM1+0 

+ 1 
+2 



UNCHANGED 



LAST 



UNCHANGED 



40 



On output, HL contains the binary number of through 65,535. 



Algorithm 

A result of OOOOOOOOOOOOOOOO is first cleared in the IX register. 

Each character is read from the string, moving from left to right. The character is 
first tested for a null, which marks the end of the string. If a null is found, the 
conversion is over. 

If the character is not a null, it is assumed to be in the proper range for hexadec- 
imal digits. A value of 30 H is subtracted from the character to yield a value of 
through 9 or 1 7 through 22. This value is then tested for the second set of 
values of 1 7 through 22 by subtracting 10. If the original value was through 9, 
the result of this subtract will be negative, and the original value of through 9 
is used. If the result was positive, the value is now 7 through 12, and is changed 
to the proper hex value by adding 3, to produce 10 through 15. This value is 
then added to the result in IX. Effectively, this merges the four bits of the current 
value into the four least significant bit positions of the IX register. 

As the IX register is added to itself four times to cause a "shift left" four bit 
positions at the start of each iteration of the loop, successive hex digits move 
toward the left of the result. The value in IX at the end of the string represents 
the converted binary value. 

Note that the shifts are done after the test for null; this ensures that the last octal 
digit remains in the least significant four bits of IX. 

If the ASCII string was 41 H, 45H, 31 H, and OOH, the result in IX would be 
00001 010111 (XXX)1 , or hex 0AE1 . 



Sample Calling Sequence 



NAME OF SUBROUTINE? AHXBIN 
HL VALUE? 50000 
PARAMETER BLOCK LOCATION? 
MEMORY BLOCK 1 LOCATION? 50000 
MEMORY BLOCK 1 VALUES? 



FIA9 IN ASCII 



+ 





1 


70 


+ 


1 


1 


49 


+ 




1 


65 


+ 


3 


1 


57 


+ 


4 


1 





+ 


5 









TERMINATOR 



MEMORY BLOCK 2 LOCATION? 
MOVE SUBROUTINE TO? 40000 
SUBROUTINE EXECUTED AT 40000 



INPUT: 

HL= 50000 



MEMB1+ 
MEMB1+ 
MEMB1+ 
MEMB1+ 
MEMB1+ 



70 
49 

65 
57 




OUTPUT : 
HL=- 61865 
MEMB1+ 
ME MB 1 + 
MEMB1+ 
ME MB 1 + 
MEMB 1 + 



1 
2 

3 
4 



RESULT = FIA9H 
70"" 
49 
65 
57 
J 



UNCHANGED 



NAME OF SUBROUTINE? 



41 



Notes 

1. If the string of ASCII characters is longer than 4 bytes, AHXBIN will return a 
result that represents the last 4 characters of the string. 

2. If any character in the string is not in the proper range, AHXBIN will return 
an invalid result; no check is made of the validity of the ASCII characters. 



Program Listing 



7F00 




00100 


ORG 


7F00H 


5 0522 








001 10 


; ***##**####*«##****»#**#««#**#***##«#*#**##**###**««*#** 






00120 


;* ASCII HEXADECIMAL TO BINARY 


CONVERSION. CONVERTS A 


* 






00130 


;* STRING OF 


ASCII CHARACTERS 


REPRESENTING HEXADECIMAL 


* 






00140 


;# DIGITS TO 


BINARY. 




* 






00150 


;« input: 


HL=> STRING OF CHARACTERS, TERMINATED BY 








00160 


;* 


NULL CHARACTER. 




* 






00170 


;* OUTPUT 


:HL=BINARY NUMBER 


FROM - 65535 


* 






00180 


; »###*###♦*#*****♦*■)(■#«**#**«*###♦#*#«**##*#«««**»*»#♦♦*♦♦ 






00190 


; 








7F00 


F5 


00200 


AHXBIN PUSH 


AF 


;SAVE REGISTERS 




7F01 


D5 


00210 


PUSH 


DE 






7F02 


DDES 


00220 


PUSH 


IX 






7F04 


CD7F0A 


00230 


CALL 


0A7FH 


;***GET STRING LOC'N*** 




7F07 


DD2 10000 


00240 


LD 


IX, 


; CLEAR RESULT REGISTER 




7F0B 


1600 


00250 


LD 


D,0 


">FOR LOOP 




7F0D 


7E 


00260 


AHX010 LD 


A, <HL) 


;GET NEXT CHARACTER 




7F0E 


B7 


00270 


OR 


A 


?TEST FOR NULL (END) 




7F0F 


2819 


00280 


JR 


Z , AHX020 


;go if end 




7F11 


DD29 


00290 


ADD 


IX, IX 


; SHIFT LEFT 4 BITS 




7F13 


DD29 


00300 


ADD 


IX, IX 






7F15 


DD29 


00310 


ADD 


IX, IX 






7F17 


DD29 


00320 


ADD 


IX, IX 






7F19 


0630 


00330 


SUB 


30H 


; CONVERT TO 0-9 OR 11 


-16 


7F1B 


5F 


00340 


LD 


E, A 


SNOW IN E 




7F1C 


D60A 


00350 


SUB 


BAH 


; SUBTRACT FOR A - F 




7F1E 


CB7F 


00360 


BIT 


7, A 


;TEST RESULT 




7F20 


2003 


00370 


JR 


NZ, AHX015 


;G0 IF - 9 




7F22 


C603 


00380 


ADD 


A!3 


; CONVERT TO A - F 




7F24 


5F 


00390 


LD 


Es A 


;NOW IN E 




7F25 


DDI 9 


00400 


AHX015 ADD 


IX, DE 


; MERGE WITH PREVIOUS 




WE 


Ee3 


mm 




AHX010 


? PO I NT ^ TO^ NEXT CHA RACTER 


7F2A 


DDE5 


00430 


AH X 020 PUSH 


IX 


; TRANSFER RESULT 




7F2C 


El 


00440 


POP 


HL 






7F2D 


DDEl 


00450 


POP 


IX 


RESTORE REGISTERS 




7F2F 


Dl 


00460 


POP 


DE 






7F30 


Fl 


00470 


POP 


AF 






7F31 


C39A0A 


00480 


JP 


0A9AH 


;*«#RETURN ARGUMENT*** 




7F34 


C9 


00490 


RET 




; NON-BASIC RETURN 




0000 




00500 


END 









00000 TOTAL ERRORS 



AHXBIN DECIMAL VALUES 



245, 213, 221, 229, 205, 127, 10, 221, 33, 0, 

0, 22, 0, 126, 183, 40, 25, 221, 41 , 221 , 

41, 221, 41 , 221, 41, 214, 48, 95, 214, 10, 

203, 127, 32, 3! 198, 3, 95, 221, 25, 35, 

24, 227, 221, 229, 225, 221, 225, 209, 241 , 195, 

154, 10, 201 



CHKSUM= 197 



42 



AOXBIN: ASCII OCTAL TO BINARY CONVERSION 



System Configuration 

Model 1, Model III, Model II Stand Alone. 

Description 

AOXBIN converts a string of ASCII characters representing octal digits to a 
16-bit binary number. Each character in the string is assumed to be in the range 
of ASCII through 7 (30 H through 37H). The string may be from zero to 6 bytes 
long, but is terminated with a byte of all zeroes. 

Input/Output Parameters 

On input, the HL register pair contains a pointer to the string of characters. 
On output, HL contains the binary number of through 65,535. 



INPUT 
H L 



POINTER TO MEM 1+0 



4- 



M EM 1+0 

+ 1 
+2 
+3 

+4 

LAST 



STRING 

Of 
ASCII 
OCTAL 
CHARACTERS 



OUTPUT 
H L 



RESULT, 0-65535 



MEM 1+0 

+ 1 

+2 



+4 



LAST 



UNCHANGED 



UNCHANGED 



Algorithm 

A result of OOOOOOOOOOOOOOOO is first cleared in the IX register. 

Each character is read from the string, moving from I eft to right. The character is 
first tested for a null, which marks the end of the string. If a null is found, the 
conversion is over. 

If the character is not a null, it is assumed to be in the proper range for octal 
digits. A value of 30H is subtracted from the character to yield a value of 
through 7. This value is then added to the result in IX. Effectively, this merges 
the three bits of the current value into the three least significant bit positions of 
the IX register. 

As the IX register is added to itself three times to cause a "shift left" three bit 
positions at the start of each iteration of the loop, successive octal digits move 
toward the left of the result. The value in IX at the end of the string represents 
the converted binary value. 
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Note that the shifts are done after the test for null; this ensures that the last octal 
digit remains in the least significant three bits of IX. 

If the ASCII string was 33H, 37H, 35H, and OOH, the result in IX would be 
000000001 1111101, or octal 375. 



Sample Calling Sequence 



NAME OF SUBROUTINE? AOXBIN 
HL VALUE? 40000 
PARAMETER BLOCK LOCATION? 
MEMORY BLOCK 1 LOCATION? 40000 
MEMORY BLOCK 1 VALUES? 



123457 IN ASCII 



MEMORY BLOCK 2 LOCATION? 
MOVE SUBROUTINE TO? 37000 
SUBROUTINE EXECUTED AT 37000 



+ 





1 


49 


+ 


1 


1 


50 




2 


1 


51 


+ 


3 


1 


52 


+ 


4 


1 


53 


+ 


5 


1 


55- 


+ 


6 


1 


T 


+ 


7 









INPUT: 
HL= 40000 
MEMB1+ 
MEMB1+ 
MEMB1+ 
MEMB1+ 
MEMB1+ 
MEMB1+ 
MEMB1+ 



1 
2 
3 
4 
5 
6 



49 
50 
51 
52 
53 
55 




OUTPUT: 
HL= 42799 
MEMB1+ 
MEMB1+ 
MEM81+ 
MEMB1+ 
MEMB1+ 
MEMB1+ 
MEMB1+ 



1 
2 
3 
4 
5 
6 



RESULT 
49" 
50 

51 

52 h UNCHANGED 
53 
55 




NAME OF SUBROUTINE? 



Notes 

1 . If the string of ASCII characters is longer than 6 bytes, or if the octal value 
represented is greater than 177777, AOXBIN will return an invalid result. 

2. If any character in the string is not in the proper range, AOXBIN will return 
an invalid result; no check is made of the validity of the ASCII characters. 



Program Listing 



7F00 



7F00 F5 
7F01 D5 

7F02 DDES 
7F04 CD7F0A 



00100 
001 10 

00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 



ORG 7F00H 5 0522 

; ##**«**#«#***##*##*«******♦**####«#****#*#*******««*»«*# 

;* ASCII OCTAL TO BINARY CONVERSION. CONVERTS A STRING * 
;« OF ASCII CHARACTERS REPRESENTING OCTAL DIGITS TO BI- * 

;* NARY. * 
;* INPUT: HL=> STRING OF CHARACTERS^ TERMINATED BY »- 

;# NULL CHARACTER. * 

1* OUTPUT :HL=B I NARY NUMBER FROM - 65535 * 
; #**#*♦*#***###********#♦«###***««##*#*****#*###**#***#«* 



AOXBIN PUSH AF 

PUSH DE 

PUSH I X 

CALL 0A7FH 



;SAVE REGISTERS 



;***6ET STRING LOC'N*** 
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7F07 DD2100e0 00240 

7F0B 1600 00250 

7F0D 7E 00260 

7F0E B7 00270 

7F0F 280E 00280 

7F11 DD29 00290 

7F13 DD29 00300 

7Fi5 DD29 00310 

7F17 D630 00320 

7F19 5F 00330 

7F1A DDI 9 00340 

7F1C 23 00350 

7F1D 18EE 00360 

7F1F DDES 00370 

7F-21 El 00380 

7F22 DDEi 00390 

7F24 Dl 00400 

7F25 Fi 00410 

7F26 C39A0A 00420 

7F29 C9 00430 

0000 00440 
00000 TOTAL ERRORS 



AO X 020 



AOX015 



AOX010 



LD 

LD 

LD 

OR 

JR 

ADD 

ADD 

ADD 

BUB 

LD 

ADD 

INC 

JR 

PUSH 

POP 

POP 

POP 

POP 

JP 

RET 

END 



1X5 

D>0 

A 5 <HL. > 
A 

AOX020 
IX, IX 
IX, IX 

1X5 IX 

30H 
E,A 
I X > DE 
HL 

AOX010 
IX 

HL 
IX 
DE 
AF 

0A9AH 



; RESTORE REGISTERS 



l#«*RETURN ARSUHENT*** 
; NON-BASIC RETURN 



; TRANSFER RESULT 



I CLEAR RESULT REGISTER 



5 FOR LOOP 

!GET NEXT CHARACTER 
;TEST FOR NULL (END) 
;G0 IF END 
; SHIFT LEFT 3 BITS 



IHERGE WITH PREVIOUS 
; POINT TO NEXT CHARACTER 



SLOOP 'TIL END 



; CONVERT TO 0-7 
;NOW IN E 



AOXBIN DEC I HAL VALUES 



2455 213» 2215 229? 205? 127» IBi 221, 33j 0, 

05 225 01 126, 183, 405 14> 2215 4l5 2215 

41 5 221 5 41 5 214> 485 95, 221 5 25 5 35, 245 

2385 2215 229? 225? 221, 2255 2095 2415 1955 154, 

105 201 



CHKSUH= 74 



System Configuration 

Model I, Model lil. Model il Stand Alone. 

Description 

BCADDN adds a "source" string of bed digits to a "destination" string of bed 
digits and puts the result of the add into the destination string. Each of the two 
strings is assumed to be the same length. The length must be an even number of 

bed digits, but may be any number from 2 through 254. 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the address of the destination string in 
standard Z-80 address format, least significant byte followed by most significant 
byte. The next two bytes of the parameter block contain the address of the 
source string in the same format. The next byte of the parameter block contains 
the number of bed digits in the two operands. This must be an even number (an 
integral number of bytes). 



BCADDN: MULTIPLE-PRECISION BCD ADD 
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On output, the parameter block and source string are unchanged. The destina- 
tion string contains the result of the bed add. 



INPUT 



OUTPUT 



H 



POINTER TO PARAM -0 



UNCHANGED 



PARAM+0 

+ 1 

+2 
+3 
+4 



POINTER TO 
MEM 1+0 



POINTER TO 
MEM2+0 



EVEN # OF 
BCD DIGITS 



PARAM+0 

+ 1 
+2 



-- UNCHANGED 



+3 
+4 



-- UNCHANGED -- 



UNCHANGED 



MEM 1+0 

+ 1 
+2 
+3 
+4 
+5 
+6 



BCD 
OPERAND 
1 



MEM 1+0 

+ 1 



+3 
+4 
+5 
+6 



RESULT 
(op1+op2) 



MEM2+0 

+ 1 
+2 
+3 
+4 
+5 
+6 



BCD 
OPERAND 
2 



MEM24 



+ 1 
+2 
+3 
+4 
+5 
+6 



UNCHANGED 



Algorithm 

The BCADDN subroutine performs one add for each two bed digits. The desti- 
nation string address and source string address are first picked up from the 
parameter block and put into DE and HL, respectively. The number of bytes in 
the add is then picked up and put into the BC register pair. This number is 
divided by two to obtain the total number of bytes involved. This number 
minus one is then added to the source and destination pointers so that they 
point to the least significant bytes of the source and destination strings. The 
number of bytes is then put into the B register for loop control. 

The next two bed destination digits are then picked up from the destination 
string (DE register pointer). An ADC is made of the two source string digits (HL 
register pointer). The result is adjusted for a bed add by a DAA instruction, and 
the result stored in the destination string. 
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The source and destination string pointers are then decremented by one to 
point to the next most significant two bed digits of each operand. The B register 
count is then decremented by a DJNZ, and a loop back to BCA01 is made for 
the next add. 

The carry is cleared before the first bed add, but successive adds add in the 
carry from the preceding bed add. 

If the destination operand was OOH, 45H, 67H, 11 H and the source operand 
wasOOH, 75 H, 77 H , 33H, then the number of bed digits must be 8. The result in 
the destination operand would be 01 H, 21 H, 44H, 4411. Note that the result 
may be one bed digit longer than the original number of bed digits. 



Sample Calling Sequence 



NAME OF SUBROUTINE? BCADDN 
HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 
PARAMETER BLOCK VALUES? 



+ 02 
■^2 
+ 41 
+ 50 
MEMORY 
MEMORY 
+ 1 
+ 1 1 
+ 2 1 
+ 30 
MEMORY 
MEMORY 



45000 
50000 
6 6 BCD 


BLOCK 1 
BLOCK 1 

IS 

52 

86 



BLOCK 2 
BLOCK 2 



+ 





1 


119 


+ 


1 


1 


5 


+ 




1 


71 


+ 


3 









DIGITS 

LOCATION? 45000 
VALUES? 

123456 IN BCD 



LOCATION? 50000 
VALUES? 



770547 IN BCD 



MOVE SUBROUTINE TO? 37000 
SUBROUTINE EXECUTED AT 37000 



input: 






output: 






HL= 40000 




HL= 40000 




PARAM+ 





200 


PARAM+ 





200" 


PARAM+ 


1 


175 


PARAM+ 


1 


175 


PARAM+ 


2 


80 


PARAM+ 


^ 


80 


PARAM+ 


3 


195 


PARAM+ 


3 


195 


PARAM+ 


4 


6 


PARAM+ 


4 


6 


MEMB1+ 





18 


MEMB1+ 





137 


MEMB1+ 


1 


52 


MEMB1+ 


1 


64 


MEMB1+ 




86 


MEMB1+ 




3 


MEMB2+ 





119 


MEMB2+ 





119 


MEMB2+ 


1 


5 


MEMB2+ 


1 


5 


MEMB2+ 


2 


71 


MEMB2+ 


2 


71 



- UNCHANGED 



UNCHANGED 



NAME OF SUBROUTINE? 



Notes 

1 . An invalid resu It will occur if the source or destination strings do not con- 
tain valid bed digits. 

2. The destination string is a fixed length. Leading zero bed digits must pre- 
cede the operands to handle the result, which may be one bed digit larger than 
either of the operands. 
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3. This is an "unsigned" bed add. Both operands are assumed to be positive 
bed numbers. 



Program Listing 



7F00 




00100 


ORS 


7F00H 






5 0522 1 






001 1 


; ******************************************************** 






00120 


;* MULTIPLE-PRECISION BCD 


ADD. 


ADDS TWO MULTIPLE-PRE- * 






00130 


CISION BCD OPERANDS? ANY 


LENGTH * ■ 






n%rh A /, 1% 
I0V3140 


;* INPUT: 


HL=> PARAMETER 


BLOCK » I 






00150 


%* 


PARAM+0! +1=ADDRESS 


OF OPERAND 1 * " 






00160 


;» 


PARAM+2, +3=ADDRESS 


OF OPERAND 2 » 






00170 


;* 


PARAM+4=EVEN 


# 


OF 


BCD DIGITS! 0-254 * m 






00180 


;# OUTPUT: OPERAND 1 LOCATION 


HOLDS RESULT » 1 






00190 


; «»##**#«**#*#»«♦*♦**#»#**♦♦«*»***«♦*•)(■♦»*♦#«*»»#»«**♦*»** ■ 






00200 


; 










7F00 


F5 


00210 


BCADDN PUSH 


AF 






5 SAVE REGISTERS ■ 


7F01 


C5 


00220 


PUSH 


BC 








7F02 


D5 


00230 


PUSH 


DE 








7F03 


E5 


00240 


PUSH 


HL 








7F04 


DDES 


00250 


PUSH 


IX 








7F06 


CD7F0A 


00260 


CALL 


0A7FH 






;**#GET PB LOC'N#** I 


7F09 


E5 


00270 


PUSH 


HL 






; TRANSFER TO IX | 


7F0A 


DDEl 


00280 


POP 


IX 








7F0C 


DD5E00 


00290 


LD 


E. ( IX+0) 






?6ET OP 1 LOC'N 


7F0F 


DD5601 


00300 


LD 


D> ( IX+1 ) 








7F12 


DD6E0.Z 


00310 


LD 


L, ( IX+2) 






;GET OP 2 LOC'N 1 


7F15 


DD6603 


00320 


LD 


H? ( IX+3) 








7F18 


DD4E04 


00330 


LD 


Cs ( IX+4) 






5 GET # OF BYTES 


TP 1 P 


CD JjT 












% N/ Z M 


f r 1 1/ 




raoi-TE: ra 
WW jDW 


LU 








; NOW IN BC ■ 


"7C1 C 

trXr 


loo 






o w 






I »— 1 ■ 




09 


to0J / U 


ADD 


HL , BC 






; POINT TO LAST 0P2 


7F21 


EB 


00380 


EX 


DE,HL 






;SWAP DE AND HL _ 


Ir ZZ 


09 


00390 


ADD 


HLsBC 






; POINT TO LAST OPl ■ 


7F23 


EB 


00400 


EX 


DE,HL 






;SWAP BACK 1 


7F24 


41 


00410 


LD 


B! C 






;#-l BACK TO B 


7F25 


04 


00420 


INC 


B 






; ORIGINAL NUMBER 


7f2h 


87 


00430 


OR 


A 






; CLEAR CARRY FOR FIRST ADD ■ 


7F27 


1 A 


00440 


BCA010 LD 


A. (DE) 






;GET OPERAND 1 BYTE I 




8E 


00450 


ADC 


Ai (HL) 






!ADD OPERAND 2 


/ r jCt 


'7'7 
Z 1 




DAA 








; DECIMAL ADJUST 


7F2A 


12 


00470 


LD 


(DE) , A 






! STORE RESULT ■ 


7F2B 


2B 


00480 


DEC 


HL 






; POINT TO NEXT 0P2 I 


7F2C 


IB 


00490 


DEC 


DE 






; POINT TO NEXT OPl ■ 


7F2D 


10F8 


00500 


DJNZ 


BCA010 






5 LOOP FOR N BYTES 


7F2F 


DDE I 


00510 


POP 


IX 






; RESTORE REGISTERS . 


7F31 


El 


00520 


POP 


HL 








7F32 


Dl 


00530 


POP 


DE 








7F33 


CI 


00540 


POP 


BC 








7F34 


Fl 


00550 


POP 


AF 








7F35 


C9 


00560 


RET 








; RETURN TO CALLING PROG 1 


0000 




00570 


END 











00000 TOTAL ERRORS 



BCADDN DECIMAL VALUES 



245. 197, 213, 229, 221, 229, 205, 127, 10, 229, 

221, 225, 221, 94, 0, 221, 86, 1, 221, 110, 

2, 221 , 102, 3, 221, 78, 4, 203, 57, 6, 

0, 11, 9, 235, 9, 235, 65, 4, 183, 26, 

142, 39, IB, 43, 27, 16, 248, 221, 225, 225, 

209, 193, 241, 201 

CHKSUM= 115 
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BCDXAD: BCD TO ASCII DECIMAL CONVERSION 



System Configuration 

Model I, Model III, Model II Stand Alone. 

Description 

BCDXAD converts a string of bed digits to a string of ASCII characters. Each 
"nibble" of four bits in the bed string is assumed to be a valid bed character of 
binary value through 9. The bed string may be from zero to any number of 
bytes long, but is terminated with a nibble of all ones. The result string of ASCII 
digits will represent ASCII decimal digits of BOH through 39H, with a terminator 
of a byte of zeroes. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the address of the bed string in stand- 
ard Z-80 address format, least significant byte followed by most significant 
byte. The next two bytes of the parameter block contain the address of the 
result string in the same format. 

On output, the parameter block is unchanged. The bed string is destroyed. The 
result string contains an ASCII decimal digit for each bed digit in the bed string 
and a final byte of zeroes. 



INPUT 



H 



_| 

POINTER TO PARAM+0 



PARAM 40 

+ 1 
+2 
+3 



POINTER TO 
BCD STRING 
(MEM 1 +0) 



POINTER TO 
RESULT STRING 

(MEM 2+0) 



OUTPUT 



UNCHANGED 

1 



PARAM+0 
+ 1 
+2 



-- UNCHANGED -- 



-- UNCHANGED -- 




(or xxxxl 111) 




LAST 
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MEM 2+0 
+ 1 
+2 
+3 
+4 
+5 
+6 



RESERVED 
FOR 
RESULT 
STRING 



MEM 2+0 

+ 1 
+2 

> +3 
+4 
+5 
+6 

LAST 



RESULT 
STRING 



Algorithm 

The BCDXAD subroutine performs one conversion for each bed digit. The bed 
string address and result string address are first picked up from the parameter 
block and put into HL and DE, respectively. 

The next bed digit is then picked up from the bed string by an RLD instruction. 
A test is made for all ones. If the digit is all ones, a jump is made to BCD020. 

A value of 30H is added to the bed digit to convert it to an ASCII digit of 30H 
through 39H. This digit is then stored in the result string. The ASCII result string 
address in DE is then incremented by one, and the next bed digit is picked up, 
tested, converted, and stored. The ASCII string pointer is again incremented to 
point to the next byte. The bed pointer in HL is then incremented to point to the 
next two bed digits. A loop is then made back to BCCXDIO. 

The final action at BCD020 is to store a null (zeroes) at the next ASCII character 
position. 

The RLD instruction shifts the least significant four bits of the A register and the 
memory location pointed to by HL in a four-bit bed shift to the left. 

If the bed string was 45H, 67H, 5FH, the result in the ASCII string would be 
34H, 35H, 36H, 37H, 35H, OOH. 



Sample Calling Sequence 



NAME OF SUBROUTINE? BCDXAD 
HL VALUE? 41000 

PARAHETER BLOCK LOCATION? 41000 
PARAMETER BLOCK VALUES? 



+ 2 
+ 2 2 
+ 40 
MEMORY 
MEMORY 
+ 1 
+ 1 1 
+ 2 
MEMORY 
MEMORY 




1 

3 
4 



44000 
45000 


BLOCK 1 
BLOCK 1 

145 

47 



BLOCK 
BLOCK 

255 

255 

255 

255 





POINTS TO BCD STRING 
POINTS TO RESULT STRING 



LOCATION? 
VALUES? 



44000 



- 912 IN BCD PLUS TERMINATOR OF ALL ONES 



LOCATION? 
VALUES? 



45000 



INITIALIZE RESULT FOR EXAMPLE 



50 



MOVE subroutine: to? 47000 
SUBROUTINE EXECUTED AT 47000 



input: 






OUTPUT: 






HL= 41000 




HL= 41000 




PARAM+ 





224 


PARAM+ 





224 


PARAH+ 


1 


171 


PARAH+ 


1 


171 


PARAM+ 


2 


200 


PARAH+ 


2 


200 


PARAM+ 


3 


175 


PARAM+ 


3 


175 


HEMB1+ 





145 


MEHB1+ 








MEMB1+- 


1 


47 


HEHB1+ 


1 





HEMB2+ 





255 


MEMB2+ 





57 




MEMB2+ 


1 


255 


MEMB2+ 


1 


49 


- 912 IN ASCI 


MEMB2+ 


jd 


255 


MEHB2+ 


2 


50 




MEMB2+ 


3 


255 


MEHB2+ 


3 


TERMINATOR 



NAME OF SUBROUTINE? 
Notes 

1. An invalid result will occur if the bed string contains invalid bed digits. 

2. The bed string will be destroyed in the processing. 



Program Listing 



7F00 



7F00 

7F01 
7FB2 
7F03 
7F05 
7F0B 
7F09 
7F0B 
7F0E 
7F11 
7F14 
7F17 
7F18 
7F1A 
7F1C 
7F1E 
7F20 
7F21 
7F22 
7F23 
7F25 
7F27 
7F29 
7F2B 
7F2C 
7F2D 
7F2E 



F5 
D5 
E5 

DDE5 

CD7F0A 

E5 

DDEl 

DD5E02 

DD5603 

DD6E00 

DD6601 

AF 

ED6F 
FE0F 
2812 
C630 

12 
13 
AF 

ED6F 
FE0F 

2807 

C630 

12 

13 

23 

18E7 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 



ORS 

; ************ 
•* BCD TO ASC 
;* OF BCD DIG 
INPUT: 

;* 
; * 
;* 
; * 

; 

; ************ 



output: 



BCDXAD 



BCD010 



7F00H ; 0522 

******************************************** 

II DECIMAL CONVERSION. CONVERTS A STRING # 

ITS TO A STRING OF ASCII CHARACTERS. * 

HL = > PARAMETER BLOCK # 

PARAM+0> +1=L0CATI0N OF STRING OF BCD DGTS , * 

TERMINATED BY A NIBBLE OF ALL ONES. * 

PARAM+2, +3=L0CATI0N OF RESULT STRING # 

RESULT STRING HOLDS STRING OF ASCII CHARS» * 

TERMINATED BY A NULL. * 

;SAVE REGISTERS 



;#**GET STRING LOC'N*** 
; TRANSFER TO IX 

;PUT DEST PNTR IN DE 

;PUT SOURCE PNTR IN HL 

; CLEAR A 

5GET BCD DIGIT 

;TEST FOR ONES (END) 

;G0 IF END 

; CONVERT TO 0-9 ASCII 

; STORE ASCI I CHAR 

; POINT TO NEXT CHARACTER 

; CLEAR A 

5SET BCD DIGIT 

;TEST FOR ONES (END) 

5 SO IF END 

; CONVERT TO 0-9 

; STORE ASCI I CHAR 

; POINT TO NEXT CHARACTER 

!LOC'N FOR NXT 2 BCD DGTS 

I LOOP 'TIL END 



PUSH 


AF 


PUSH 


DE 


PUSH 


HL 


PUSH 


IX 


CALL 


0A7FH 


PUSH 


HL 


POP 


IX 


LD 


E, ( IX+2) 


LD 


D» ( IX+3) 


LD 


L, ( IX+0) 


LD 


H, (IX+1) 


XOR 


A 


RLD 




CP 


0FH 


JR 


I ■> BCD020 


ADD 


A» 30H 


LD 


(DE) 1 A 


INC 


DE 


XOR 


A 


RLD 




CP 


0FH 


JR 


Z » BCD020 


ADD 


A» 30H 


LD 


(DE) » A 


INC 


DE 


INC 


HL 


JR 


BCD010 
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7F3B AF 


00490 BCD020 


XOR 


A 


; NULL 


7F31 12 


00500 


LD 


(DE ) » A 


; STORE NULL AS TERMINATOR 




005 10 


POP 


IX 


1 RESTORE REGISTERS 


7F34 El 


00520 


POP 


HL 




7F35 Dl 


00530 


POP 


DE 




7F36 Fl 


00540 


POP 


AF 




7F37 C9 


00550 


RET 




! RETURN TO CALLING PROS 


0000 


00560 


END 






00000 TOTAL 


ERRORS 









BCDXAD DECIMAL VALUES 



245» 213» 229) 221> 229) 205> 1275 105 229? 221? 
225 5 2215 945 25 221 5 86) 35 2215 1105 05 
221) 1025 l5 1755 2375 III5 2545 15? 405 IBj 
1985 485 I85 195 175. 237. III5 2545 15) 405 
75 1985 485 IBj 195 355 245 2315 1755 I85 
2215 225 5 225 5 209? 2415 201 



CHKSUH= 72 



BCSUBT: MULTIPLE-PRECISION BCD SUBTRACT 



System Configuration 

Model I, Model III, Model II Stand Alone. 



Description 

BCSUBT subtracts a "source" string of bed digits from a "destination" string of 
bed digits and puts the result of the subtract into the destination string. Each of 
the two strings is assumed to be the same length. The length must be an even 
number of bed digits, but may be any number from 2 through 254. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the address of the destination string in 
standard Z-80 address format, least significant byte followed by most significant 
byte. The next two bytes of the parameter block contain the address of the 
source string in the same format. The next byte of the parameter block contains 
the number of bed digits in the two operands. This must be an even number (an 
i ntegral number of bytes). 



INPUT 

H L 



POINTER TO PARAM+0 



+ 



OUTPUT 

H L 



UNCHANGED 



PARAM+0 
+ 1 
+2 
+3 
+4 



POINTER TO 

MEM 1+0 



POINTER TO 
MEM2-0 



EVEN # OF 
BCD DIGITS 



PARAM+0 
+ 1 
+2 
+3 
+4 



-- UNCHANGED 



UNCHANGED -- 



UNCHANGED 



52 



MEM 1+0 
+ 1 
+2 
+3 
+4 
+5 
+6 



BCD 
OPERAND 
1 



MEM1+0 
+ 1 
+2 

> +3 
+4 
+5 
+6 



RESULT 
(op1-op2) 



MEM2+0 
+ 1 
+2 
+3 
+4 
+5 
+6 



BCD 
OPERAND 
2 



MEM 2+0 
+ 1 
+2 

> +3 
+4 
+5 
+6 



UNCHANGED 



On output, the parameter block and source string are unchanged. The destina- 
tion string contains the result of the bed subtract. 



Algorithm 

The BCSUBT subroutine performs one subtract for each two bed digits. The 
destination string address and source string address are first picked up from 
the parameter block and put into DE and HL, respectively. The number of bytes 
in the subtract is then picked up and put into the BC register pair. This number 
is divided by two to obtain the total number of bytes involved. This number 
minus one is then added to the source and destination pointers so that they 
point to the least significant bytes of the source and destination strings. The 
number of bytes is then put into the B register for loop control. 

The next two bed destination digits are then picked up from the destination 
string (DE register pointer). An ADC is made of the two source string digits (HL 
register pointer). The result is adjusted for a bed subtract by a DAA instruction, 
and the result stored in the destination string. 

The source and destination string pointers are then decremented by one to 
point to the next most significant two bed digits of each operand. The B register 
count is then decremented by a DJNZ, and a loop back to BCS010 is made for 
the next subtract. 

The carry is cleared before the first bed subtract, but successive subtracts sub- 
tract in the carry from the preceding bed subtract 

If the destination operand was OOH, 45H, 67H, 11 H and the source operand 
was OOH, 75H, 77 H. 33H, then the number of bed digits must be 8. The result in 
the destination operand would be 99H, 69H, 89H, 78H. 
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Sample Calling Sequence 



NAME OF SUBROUTINE? BCSUBT 
HL VALUE? 50000 

PARAMETER BLOCK LOCATION? 50000 
PARAMETER BLOCK VALUES? 



2 



52000 
54000 
4 


BLOCK 1 
BLOCK 1 

149 
112_ 


BLOCK 2 
BLOCK 2 
147 
131_ 


MOVE SUBROUTINE TO? 45000 
SUBROUTINE EXECUTED AT 45000 



+ 

+ 2 2 
+ 4 1 
+ 5 
MEMORY 
MEMORY 
+ 1 
+ 1 1 
-t 2 
MEMORY 
MEMORY 
+ 1 
+ 1 1 

2 a 



4 BCD DIGITS 

LOCATION? 
VALUES? 



-9570 IN BCD 



LOCATION? 

VALUES? 



52000 



54000 



9383 IN BCD 



INPUT: 






OUTPUT 






HL= 50000 




HL= 50000 




PARAM+ 





32 


PARAM+ 





32 


PARAM+ 


1 


203 


PARAM+ 


1 


203 


fAiAW+ 




240 
210 


PARAM+ 


2 
3 


240 
210 




PARAM+ 


PARAM+ 


4 


4 


PARAM+ 


4 


4 


MEMB1+ 





149 


MEMB1+ 





1 


MEMB1+ 


1 


1 12 


MEMB1+ 


1 


135 


MEMB2+ 





147 


MEMB2+ 





147" 


MEMB2+ 


1 


131 


MEMB2+ 


1 


131 



UNCHANGED 



187 RESULT IN BCD 



-UNCHANGED 



NAME OF SUBROUTINE? 



Notes 

1. An invalid result will occur if the source or destination strings do not con- 
tain valid bed digits. 

2. This is an "unsigned" subtract. Both operands are assumed to be positive 
bed numbers. 



Program Listing 



7F00 



7F00 F5 
7F01 05 
7F02 D5 
7F03 E5 
7F04 



DDES 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 



ORS 7F00H !0522 

;« MULTIPLE-PRECISION BCD SUBTRACT. SUBTRACTS TWO MUL- « 



PLE-PRECISION BCD OPERANDS? ANY LENGTH. 
;* INPUT: HL=> PARAMETER BLOCK 
;* PARAM+0, +1=ADDRESS OF OPERAND 1 

!« PARAM+2,+3=ADDRESS OF OPERAND 2 

;* PARAM+4=EVEN # OF BCD DIGITS. 0-254 

;* OUTPUT: OPERAND 1 LOCATION HOLDS RESULT 



* 
» 

# 
* 



; ******************************************************** 



BCSUBT 



PUSH 
PUSH 
PUSH 
PUSH 
PUSH 



AF 
BC 
DE 
HL 
IX 



;SAVE REGISTERS 
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7F06 


CD7F0A 


00260 


CALL 


0A7FH 


7F09 


E5 


00270 


PUSH 


HL 


7F0A 


DDEl 


00280 


POP 


IX 


7F0C 


DD5E00 


00290 


LD 


El ( IX+0) 


7F0F 


DD5601 


00300 


LD 


D, ( IX+1 ) 


7F12 


DD6E02 


00310 


LD 


L, ( IX+2) 


7F15 


DD6603 


00320 


LD 


H, ( IX+3) 


7F1S 


DD4E04 


00330 


LD 


C, ( IX+4) 


7F1B 


CB39 


00340 


SRL 


C 


7F1D 


0600 


00350 


LD 


850 


7F1F 


08 


00360 


DEC 


BC 


7F20 


09 


00370 


ADD 


HL? BC 


7F21 


EE 


00380 


EX 


DE> HL 


7F22 


09 


00390 


ADD 


HL » BC 


7F23 


EB 


00400 


EX 


DE»HL 


7F24 


41 


00410 


LD 


Bs C 


7F25 


04 


00420 


INC 


B 


7F26 


B7 


00430 


OR 


A 


7F27 


lA 


00440 BCS010 


LD 


Ai ( DE ) 


7F28 


9E 


00450 


SBC 


A? ( HL ) 


7F29 


27 


00460 


DAA 




7F2A 


12 


00470 


LD 


(DE) , A 


7F2B 


2B 


00480 


DEC 


HL 


7F2C 


IB 


00490 


DEC 


DE 


7F2D 


10F8 


00500 


DJNZ 


BCS010 


7F2F 


DDEl 


00510 


POP 


IX 


7F31 


El 


00520 


POP 


HL 


7F32 


Dl 


00530 


POP 


DE 


7F33 


CI 


00540 


POP 


BC 


7F34 


Fl 


00550 


POP 


AF 


7F35 


C9 


00560 


RET 




0000 




00570 


END 





;*«*SET PB LOC'N*** 
; TRANSFER TO IX 

5 GET OP 1 LOC'N 

;GET OP 2 LOC'N 
JSET # OF BYTES 

;N/2 

I NOW IN BC 
!#-! 

; POINT TO LAST 0P2 
;SWAP DE AND HL 
; POINT TO LAST OPl 
;SWAP BACK 

BACK TO B 
; ORIGINAL NUMBER 
; CLEAR CARRY FOR FIRST ADD 

;GET OPERAND 1 BYTE 

;SUB OPERAND 2 

; DECIMAL ADJUST 

; STORE RESULT 

; POINT TO NEXT 0P2 

; POINT TO NEXT OPl 

I LOOP FOR N BYTES 
; RESTORE REGISTERS 



; RETURN TO CALLING PROS 



00000 TOTAL ERRORS 



BCSUBT DECIMAL. VALUES 



245 5 197, 21 3 1 229 » 221, 229, 205, 127, 10, 229, 

221 , 225, 221 5 94, 0, 221, 86, 1, 22t - liB, 

2, 221, 102, 3i 221, 78, 4, 203, 57, 6, 

0, 11 > 9, 235 5 9, 235, 65, 4, 183, 26, 

158, 39, 18, A3, 27, 16, 248, 221, 225, 225, 

209, 193, 241 ? 201 



CHKSUM= 131 



BXBINY: BINARY TO ASCII BINARY CONVERSION 



System Configuration 

Model, I, Model III, Model II Stand Alone. 



Description 

BXBINY converts a 1 6-bit binary number to a string of ASCII binary digits. Each 
character in the string will be either an ASCII one (30 H) or an ASCII zero (31 H). 
The result string will be 16 bytes long, and is terminated with a byte of all 
zeroes. The user must specify a buffer area of 1 7 bytes to hold the result string. 
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Input/Output Parameters 



On input, the HL register pair contains a pointer to a parameter block for 
BXBINY. The first two bytes of the parameter block contain the 16-bit binary 
value to be converted, in standard Z-80 16-bit representation, least significant 
byte followed by most significant byte. The next two bytes of the parameter 
block contain the buffer address for the 17-byte buffer that will hold the result. 

On output, the buffer has been filled with the resulting string of ASCII ones and 
zeroes, terminated by a null. The parameter block contents remain unchanged. 



INPUT 



POINTER TO PARAM+0 



OUTPUT 

H L 



UNCHANGED 



PARAM+0 

+ 1 
+2 
+3 



16-BIT VALUE 

TO BE 
CONVERTED 



BUFFER 
ADDRESS 
(MEM 1+0) 



PARAM-0 

+ 1 
+2 

-A, 



-- UNCHANGED 



-- UNCHANGED -■ 



RESERVED 
FOR 
RESULT 




Algorithm 

BXBINY goes through 16 iterations to convert each of the bits in the input value 
to an ASCII 30H or 31 H (zero or one). The value to be converted is put into 
register pair HL from the parameter block. For each iteration, HL is shifted left 
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one bit position. The carry is set if the bit shifted out is a one, or reset if the bit 
shifted out is a zero. 

The carry is tested and either a 30H (0) or 31 H (1) is stored in the next buffer 
position. A pointer to the buffer is picked up from the parameter block and 
maintained in the DE register pair; it is incremented by one as each result byte 
is stored. The buffer is filled from low-order memory address to high-order 
memory address, corresponding to the processing of the bits from HL. 

If the binary value to be converted was 0000000000001101, the buffer would 
contain BOH, 30H, 30H, BOH, BOH, BOH, BOH, BOH, BOH, BOH, BOH, 30H, 31 H, 
31 H, BOH, 31 H, OOH on return. 



Sample Calling Sequence 



NAME OF SUBROUTINE? BXBINY 
HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 
PARAMETER BLOCK VALUES? 



+ 02 
+ 22 

4 4 

MEMORY 
MEMORY 



43680 
50000 


BLOCK 1 
BLOCK 1 




VALUE TO BE CONVERTED = 1010101010100000 



LOCATION? 50000 
VALUES? 



INITIALIZE BUFFER FOR EXAMPLE 



+ 02 
+ 220 
+ 420 
+ 620 
4 8 2 
+ 10 2 
+ 12 2 
+ 14 2 
+16 1 255 
+ 17 ' 
MEMORY BLOCK 2 LOCATION? 
MOVE SUBROUTINE TO? 37000 
SUf?.ROUTINE EXECUTED AT 37000 



input: 
HL= 40000 




OUTPUT: 
HL= 40000 






PARAM+ 





160 


PARAM+ 





160 




PARAM+ 


1 


170 


PARAM+ 


1 


170 


- UNCHANGED 


PARAM+ 


2 


80 


PARAM+ 


2 


80 


PARAM+ 


3 


195 


PARAM+ 


3 


195 _ 




MEM81+ 








MEHB 1 + 





49 ~ 




MEMB1+ 


1 





MEMB 1 + 


1 


48 




MEMB1+ 


2 





MEHB 1 + 


2 


49 




MEMB1+ 


3 





MEMB 1 + 


3 


48 




MEMB1+ 


4 





MEMB 1 + 


4 


49 




MEMB1+ 


5 





MEMB 1 + 


5 


48 




MEMB1+ 


6 





MEMB1+ 


6 


49 




MEMB1+ 


7 





MEMB 1 + 


7 


48 


- RESULT OF 1010101010100000 IN ASCII 


MEMB1+ 


S 





MEMB 1 + 


8 


49 


MEMBI+ 


9 





MEMB 1 + 


9 


48 




HEMB1+ 


10 





MEMB 1 + 


10 


49 




MEMB1+ 


11 





MEMB1+ 


11 


48 




MEMB1+ 


12 





MEMB 1 + 


12 


48 




MEMB1+ 


13 





MEMB1+ 


13 


48 




MEMB1+ 


14 





MEMB i + 


14 


48 




MEMB1+ 


15 





MEMB 1 + 


15 


48 




MEMB1+ 


16 


255 


MEMB 1 + 


16 


TERMINATOR 



NAME OF SUBROUTINE? 
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Notes 



1. Leading ASCII zeroes may be present in the result. 

2. No invalid result may occur. 



Program Listing 



7F00 




00100 


ORG 


7F00H 




5 05ji'ji^ 








001 10 


; **#»*###****####«###♦*#»##»«##******»«*****##*♦»*«*#**«* 






00120 


BINARY TO 


ASCII BINARY CONVERSION. CONVERTS A 16-BIT 


* 






00130 


;* BINARY VALUE TO A STRING 


OF 


ASCII ONES AND ZEROES 








00140 


;« TERHINATEE 


1 BY A NULL. 






* 






00150 


;* INPUT: 


HL=> PARAMETER 


BLOCK 


* 






00160 


;* 


PARAM+0! +1=16- 


BIT 


VALUE 


* 






00170 


; # 


PARAM+2» +3=BUFFER 


ADDRESS 








00180 


;* OUTPUT: 


BUFFER FILLED 


WITH 


1 16 ASCII ONES AND ZER- 


♦ 






00190 


;* 


OES, TERMINATED BY 


■ NULL 


* 






00200 








00210 












7F00 


F5 


00220 


BXBINY PUSH 


AF 




; SAVE REGISTERS 




7F01 


C5 


00230 


PUSH 


EC 








7F02 


D5 




PUSH 


DE 








7F03 


E5 


00250 


PUSH 


HL 








7F04 


DDES 


00260 


PUSH 


IX 








7F06 


CD7F0A 


00270 


CALL 


0A7FH 




;»##GET PB LOC'N*** 




7h 09 


E5 


00280 


PUSH 


HL 




; TRANSFER TO IX 




7F0A 


DDEl 


00290 


POP 


I X 








7F0C 


DD6E00 


00300 


LD 


L> ( IX+0) 




;PUT VALUE INTO HL 




7F0F 


DD6601 


00310 


LD 


H, ( IX+1 ) 








/ r i ^ 






LD 


E, (IX+2) 




;PUT BUFFER ADD IN DE 




TCr 1 k: 
r r i 3 






LD 


D, ( IX+3) 








7F18 


0610 


00340 


LD 


B, 16 




;16 ITERATIONS 




7F1A 


3E30 


00350 


BXB010 LD 


A>30H 




; ASCI I ZERO 




7FIC 


29 


00360 


ADD 


HL.HL 




; SHIFT VALUE LEFT 1 BIT 


7F1D 


3001 


00370 


JR 


NC,BXB020 




;go if zero bit 




7F1F 


3C 


00380 


INC 


A 




; ASCI I ONE NOW IN A 




7F20 


12 


00390 


BXB020 LD 


( DE ) . A 




! STORE ONE OR ZERO 




7F21 


13 


00400 


INC 


DE 




5 POINT TO NEXT SLOT 




Wii 




mm 


DJNZ 
XOR 


BXB010 

A 




;LOOP 'TIL END 
;ZERO 




7F25 


12 


00430 


LD 


<DE)»A 




; STORE NULL 




7F26 


DDEl 


00440 


POP 


IX 




; RESTORE REGISTERS 




7F28 


El 


00450 


POP 


HL 








7F29 


Dl 


00460 


POP 


DE 








7F2A 


CI 


00470 


POP 


BC 








7F2B 


Fl 


00480 


POP 


AF 








7F2C 


C9 


00490 


RET 






; RETURN TO CALLING PROS 




0000 




00500 


END 











00000 TOTAL ERRORS 



BXBINY DECIMAL VALUES 



245, 197! 213! 
2215 225 » 2215 
k' 5 k'2 1 5 86 ? 3 ! 
1 ! 601 18» 17! 



229 ! 22 1 5 229 ! 205 ! 127; 10? 229 ? 

110s 0! 221 ! 102! l! 221 ! 94! 

6! 16j 62! 48! 41 ! 48? 

16 5 246! 175! 18? 221) 225! 



>25 5 209! 193! 241 5 201 



CHKSUM= 34 
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BXDECL: BINARY TO ASCII DECIMAL CONVERSION 



System Configuration 

Model 1, Model III, Model II Stand Alone. 

Description 

BXDECL converts a 16-bit binary number to a string of ASCII decimal digits. 
Each character in the string will be in the range of ASCII through 9 (30H 
through 39H). The result string will be 5 bytes long, and is terminated with a 
byte of all zeroes. The user must specify a buffer area of 6 bytes to hold the 
result string. The conversion is an "unsigned" conversion of the 16-bit value. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block for 
BXDECL. The first two bytes of the parameter block contain the 16-bit binary 
value to be converted, in standard Z-80 16-bit representation, least significant 
byte followed by most significant byte. The next two bytes of the parameter 
block contain the buffer address for the 6-byte buffer that will hold the result. 

On output, the buffer has been filled with the resulting string of ASCII charac- 
ters, terminated by a null. The parameter block contents remain unchanged. 



INPUT 



OUTPUT 



H 



POINTER TO PARAM+0 



+ 



UNCHANGED 



PARAM+0 

+ 1 
+2 
+3 



1 6-BIT VALUE 

TO BE 
CONVERTED 



BUFFER 
ADDRESS 
(MEMH-0) 



PARAM+0 

+ 1 
+2 
+3 



-- UNCHANGED -- 



-- UNCHANGED -- 



RESERVED 
FOR 

RESULT 




Algorithm 

BXDECL goes through 5 iterations to convert the input values. The value to be 
converted is put into register pair HL from the parameter block. For each itera- 
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tion, a power of ten is subtracted from the contents of HL, starting with the 
largest power of ten that can be held in the 16-bit input value, 10000. Subse- 
quent powers subtracted are 1000, 100, 10, and 1 . 

The first operation subtracts 10,000 as many times as possible from the original 
value. For each subtract, a count is incremented. If the original value were 
34,567, for example, the first operation would subtract 10,000 from 34,567 four 
times. On the fourth time, the result would "go negative" indicating that no 
additional subtracts of the power could be done. 

The count minus one is then added to 30H to yield the proper ASCII digit of 30H 
through 39H. This ASCII digit is then stored in the buffer. This operation is 
repeated for the five powers of ten involved. 

BXDECL uses a subroutine called SUBPWR. SUBPWR is called to perform the 
subtracts. SUBPWR is entered with BC containing the negated power of ten to 
be subtracted and the current "residue" of the value to be converted in HL. A 
count of — 1 is initially put into A. This count is incremented for each subtract. 
As each subtract is done, a test is made of the result. If it is negative, an add is 
done to restore the last result in HL. A value of 30H is then added to the value of 
A and the result is stored in the buffer. The pointer to the buffer is then incre- 
mented by one. 

SUBPWR returns to the code in BXDECL by testing the current power of ten. It 
returns to one of five points at BXD010 through BXD050. This structure is nec- 
essary to avoid use of CALL instructions, which are not relocatable. 

The buffer is filled from low-order memory address to high-order memory ad- 
dress, corresponding to the processing of the powers of ten. 

If the binary value to be converted was 1010111111010011, the buffer would 
contain 34H, 35H, 30H, 31 H, 31 H, OOH on return. 



Sample Calling Sequence 



NAME OF SUBROUTINE? BXDECL 
HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 
PARAMETER BLOCK VALUES? 
+ 2 12345 VALUE TO BE CONVERTED 
+22 50000 
+ 400 
MEMORY BLOCK 1 
MEMORY BLOCK 1 



LOCATION? 50000 
VALUES? 



+ 





2 





+ 


z, 


2 





+ 


4 


1 





+ 


5 


1 


255 


+ 


6 









INITIALIZE BUFFER FOR EXAMPLE 



MEMORY BLOCK 2 LOCATION? 
MOVE SUBROUTINE TO? 45000 
SUBROUTINE EXECUTED AT 45000 



INPUT: 
HL= 40000 
PARAM+ 
PARAM+ 1 
PARAM+ 2 
PARAM+ 3 
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48 
80 
195 



OUTPUT : 
HL= 40000 
PARAM+ 
PARAM+ 1 
PARAM+ 2 
PARAM+ 3 



57 
48 
80 
195 



RESULT OF 12345 IN ASCII 



60 



HEMB1+ 








MEHB 1 + 





49 ' 




MEMB1+ 


1 





ME MB 1 + 


1 


50 




MEHB1+ 


2 





MEHB 1 + 


2 


51 




HEMB1+ 


3 





MEMB1+ 


3 


52 




MEMB14- 


4 





MEMB 1 + 


4 


53 




MEHB1+ 


5 


255 


MEMB 1 + 


5 






- UNCHANGED 



NAME OF SUBROyTINE? 



Holes 

1. Leading ASCII zeroes may be present in the result. 

2. No invalid result may occur. 



Program Listing 



7F00 




00100 




ORG 




7F00H 




5 0522 






001 10 


; *##♦#*****#»■»-******#**##*#***«****#«********#****#*«***» 






00120 


;# BINARY TO 


ASCII DECIMAL 


CONVERSION. CONVERTS A 16-BIT* 






00130 


BINARY VALUE 


TO A STRING 


OF 


ASCII DECIMAL DIGITS TER-* 






00140 


;* MINATED BY 


A 


NULL. 




* 






00150 


?* 


INPUT: 


HL 


= > PARAMETER 


BLOCK * 






00160 


;# 




PARAM+01 +1=16 


BIT 


VALUE » 






00170 


;* 




PARAM-t-2i +3=BUFFER 


ADDRESS ♦ 






00180 


;* 


OUTPUT : BUFFER FILLED 


WITH 5 ASCII DIGITS? TERM- » 






00190 


;* 




INATED BY NULL 




* 






00200 








00210 














7F00 


F5 


00220 


BXDECL 


PUSH 




AF 




;SAVE REGISTERS 


7F01 


C5 


00230 




PUSH 




BC 






7F02 


D5 


00240 




PUSH 




DE 






7F03 


E5 


00250 




PUSH 




HL 






7F04 


DDE5 


00260 




PUSH 




IX 






7F06 


CD7F0A 


00270 




CALL 




0A7FH 




;#»*GET PB LOC'N#** 


7F09 


E5 


00280 




PUSH 




HL 




! TRANSFER TO IX 


7F0A 


DDEl 


00290 




POP 




IX 






7F0C 


DD6E00 


00300 




LD 




L? ( IX+0) 




;PUT VALUE INTO HL 


7F0F 


DD6601 


00310 




LD 




H» C IX + 1 ) 






7F12 


DD5E02 


00320 




LD 




Ef ( IX+2) 




;PUT BUFFER ADD IN DE 


7F15 


DD5603 


00330 




LD 




D5 ( IX+3) 






7F18 


01F0DS 


00340 




LD 




BC> -10000 




!10 TO THE FOURTH 


7FiB 


181D 


00350 




JR 




SUBPWR 




;FIND FIRST DIGIT 


7F1D 


0118FC 


00360 


BXD010 


LD 




BC. -1000 




!10 TO THE THIRD 


7F20 


1818 


00370 




JR 




SUBPWR 




SFIND SECOND DIGIT 


7F22 


019CFF 


00380 


BXD020 


LD 




BC? -100 




;10 TO THE SECOND 


7F25 


1813 


00390 




JR 




SUBPWR 




;FIND THIRD DIGIT 


7F27 


01F6FF 


00400 


BXD030 


LD 




BC? -10 




5 10 TO THE FIRST 


7F2A 


180E 


00410 




JR 




SUBPWR 




;FIND FOURTH DIGIT 


7F2C 


01FFFF 


00420 


BXD040 


LD 




BC? -1 




S10 TO THE ZEROTH 


7F2F 


1809 


00430 




JR 




SUBPWR 




?FIND LAST DIGIT 


7F31 


AF 


00440 


BXD050 


XOR 




A 




;ZERO 


7F32 


12 


00450 




LD 




(DE) tA 




5 STORE NULL 


7F33 


DDEl 


00460 




POP 




IX 




; RESTORE REGISTERS 


7F35 


El 


00470 




POP 




HL 






7F36 


Dl 


00480 




POP 




DE 






7F37 


CI 


00490 




POP 




BC 






7F3S 


Fl 


00500 




POP 




AF 






7F39 


C9 


00510 




RET 








f RETURN TO CALLING PROG 


7F3A 


3EFF 


00520 


SUBPWR 


LD 




A?0FFH 




;-l TO A 


7F3C 


3C 


00530 


SUB010 


INC 




A 




;BUMP DIGIT COUNT 


7F3D 


09 


00540 




ADD 




HL? BC 




; SUBTRACT PWR OF TEN 


7F3E 


38FC 


00550 




JR 




C?SUB010 




;G0 if NOT NEGATIVE 


7F40 


B7 


00560 




OR 




A 




; CLEAR CARRY 



61 











SBC 


ui , or 

lit— 5 \j 








/ r *f %J> 








Ann 

rMJU 


A . -JfOILJ 






7 UUfNVcin 1 1 U HOW 1 X 




1 

1^ 


KJKJD Via 




1 n 








• CTAPF T M Qi IpcrpP 

J 1 vrxc. 1 1 M ourriztt 




1 "? 






TKir 


HP" 

utz. 










/t 


IcJiuo 1 la 




! n 


M ? u 








ft Ha 








Lr 












oon 1 
ZoUx 


(31 fj* AT/71 




TO 

u r; 


L 9 OAiJlt) 1 «3 






■ A T C — 1 I7}(7ICT(7I 


•7 ETA 


CP i 








1 on 






» YpoT CAP —i^PitA 


fr He. 








TD 


i. 9 AlJIiy-dKJ 








7F50 


r ctC 






_ _. 
C-r 


r-Lj 






« TCCT CAP — 1 PtfTi 


7F52 


28D3 


00670 




JR 


Z9BXD030 






;go if -100 


7F54 


FEF6 


00680 




CP 


0F6H 






5 TEST FOR -10 


7F56 


2SD4 


00690 




JR 


Z9BXD040 






;G0 IF -10 


7F5S 


1SD7 


00700 




JR 


BXD050 






;HUST BE -1 


0000 




00710 




END 










0000c 


a TOTAL 


ERRORS 


















BXDECL 


DECIMAL VALUES 












2 4 ^) § 


197? 


2139 229 


9 2^:93 2M5-} 




7 , 10, 229 ! 






22 1 ? 


225? 


22I9 110 


f 09 221 9 102? 


1 




1 5 94 5 






2 9 22 


1 9 869 3? 1 9 


2409 21 69 249 2 


9 


9 J. 










r329 


24? 24? 1 


9 156i 2559 24? 




i. T 9 


1 » 






246 f 


255? 


249 149 


1 1 255? 255s 24 


9 


99 


175i 






18? 2 


21? 


225 9 225 9 


2099 1939 2419 




201 


! 62! 255) 






60? 9 


1 56 


9 2529 18 


39 2379 669 198 


9 


48 


! ISh 






19^ 1 


2I9 


25 4 1 240? 


409 2099 2549 




49 


40! 210, 






254? 


1569 


409 2119 


2549 2469 409 




129 


24, 215 



CHKSUM= 190 

BXHEXD: BINARY TO ASCII HEXADECIMAL CONVERSION 



System Configuration 

Model I, Model III, Model II Stand Alone. 



Description 

BXHEXD converts a 16-bit binary number to a string of ASCII hexadecimal 
digits. Each character in the string will be in the range of ASCII through 9 (30H 
through 37H) or ASCII A through F (41 H through 46H). The result string will be 
4 bytes long, and is terminated with a byte of all zeroes. The user must specify a 
buffer area of 5 bytes to hold the result string. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block for 
BXHEXD. The first two bytes of the parameter block contain the 16-bit binary 
value to be converted, in standard Z-80 16-bit representation, least significant 
byte followed by most significant byte. The next two bytes of the parameter 
block contain the buffer address for the 5-byte buffer that will hold the result. 
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On output, the buffer has been filled with the resulting string of ASCII charac- 
ters, terminated by a null. The parameter block contents remain unchanged. 




POINTER TO PARAM+0 
+ 



PARAM+0 

+ 1 
+2 
+3 



16-BIT VALUE 

TO BE 
CONVERTED 



BUFFER 
ADDRESS 
(MEM 1 +0) 



OUTPUT 



UNCHANGED 



PARAM+0 
+ 1 
+2 
+3 



-- UNCHANGED -- 



UNCHANGED 



MEM 1+0 
+ 1 
+2 
+3 
+4 



RESERVED 
FOR 
RESULT 




Algorithm 

BXHEXD goes through 4 iterations to convert each of the bits in the input value 
to an ASCII 30H through 39 H (zero through nine) or 41 H through 46 H (A through 
F). The value to be converted is put into register pair HL from the parameter 
block. For each iteration, HL is shifted four bit positions with the four bits from 
the shift going into the four least significant bits of the A register. 

A test is then made of the value in A. If it is in the range through 9, a "bias" 
value of BOH is set aside. If it is in the range of 10 through 15, a bias value of 
37H is saved. The bias value is then added to the contents of A, converting the 
three bits to an ASCII octal digit of BOH through 39H or 41 H through 46 H. The 
ASCII character is then stored in the user buffer. A pointer to the buffer is picked 
up from the parameter block and maintained in the DE register pair; it is incre- 
mented by one as each result byte is stored. The buffer is filled from low-order 
memory address to high-order memory address, corresponding to the process- 
ing of the bits from HL. 

If the binary value to be converted was 1111000000111101, the buffer would 
contain 45 H, BOH, 33 H, 44H, OOH on return. 



Sample Calling Sequence 



NAME OF SUBROUTINE? BXHEXD 
HL VALUE? 40000 

PARAHETER BLOCK LOCATION? 40000 
PARAMETER BLOCK VALUES? 

+ 2 4660 VALUE TO BE CONVERTED 
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+ 22 
+ 40 
MEMORY 
MEMORY 



50000 


BLOCK 
BLOCK 



LOCATION? 

VALUES? 



50000 



+ 





2 





+ 


2 


2 





+ 


4 


1 


255 


+ 


5 









- INITIALIZE BUFFER FOR EXAMPLE 



MEMORY BLOCK 2 LOCATION? 
MOVE SUBROUTINE TO? 37777 
SUBROUTINE EXECUTED AT 37777 



INPUT: 
HL= 40000 
PARAM+ 
PARAM+ 
PARAM+ 
PARAM+ 
MEMB1+ 
MEMB1+ 
MEMB1+ 
MEMB1+ 
MEMB1+ 



I 
2 
3 


1 
2 
3 
4 



52 

IB 

80 

195 









255 



OUTPUT: 
HL= 40000 
PARAM+ 
PARAM+ 
PARAM+ 
PARAM+ 
MEMB1+ 
MEMB1+ 
MEMB 1 + 
MEMBl- 
MEMBl- 



1 
2 
3 

1 
2 
3 
4 



52 
IS 
80 
195 
49 ' 
50 
51 
52 

TERMINATOR 



UNCHANGED 



RESULT OF 1234 IN ASCII 



NAME OF SUBROUTINE? 



Notes 

1. Leading ASCII zeroes may be present in the result 

2. No inval id result may occur. 



Program Listing 



7F00 




00100 




ORG 


7F00H 






; 0522 








00110 


; ♦**##■)(■»**#♦* 


-**«****»*##■!(■*####«»**###*^(.**#^(.##^f.^(.#^(.^(.^(.^(.^(.^j.^<.^(,^^. 






00120 


; # 


BINARY TO 


ASCII HEXADECIMAL 


CONVERSION. CONVERTS A 


* 






00130 




16-BIT BINARY VALUE TO 


A STRING OF ASCII HEX DIGITS 


* I 






00140 


;* 


TERMINATED BY A NULL. 








* " 






00150 


;* 


INPUT: 


HL=> PARAMETER BLOCK 








00160 


;* 




PARAM+05 +1 = 


16 


-BIT 


VALUE 


* u 






00170 


;* 




PARAM+2f +3= 


BUFFER 


ADDRESS 


* 1 






00180 


;* 


OUTPUT: 


BUFFER FILLED 


WITH 


FOUR ASCII HEX DIGITS, 








00190 


; * 




TERMINATED 


BY 


NULL 










00200 








00210 


; 














7F00 


F5 


00220 


BXHEXD PUSH 


AF 






;SAVE REGISTERS 




7F01 


C5 


00230 




PUSH 


BC 










7F02 


D5 


00240 




PUSH 


DE 










7F03 


E5 


00250 




PUSH 


HL 










7F04 


DDES 


00260 




PUSH 


IX 










7F06 


CD7F0A 


00270 




CALL 


0A7FH 






;***GET PB LOC'N*** 




7F09 


E5 


00280 




PUSH 


HL 








7F0A 


DDE! 


00290 




POP 


IX 










7F0C 


DD6E00 


00300 




LD 


L, ( IX+0) 






;PUT VALUE INTO HL 




7F0F 


DD6601 


00310 




LD 


H, < IX+1 ) 








7F12 


DD5E02 


00320 




1...D 


E, (IX+2) 






; PUT BUFFER ADD IN DE 




7F15 


DD5603 


00330 




LD 


Di ( IX+3) 










71 18 


0604 


00340 




LD 


B5 4 






; ITERATION COUNT 




7F1A 


AF 


00350 


BXH010 XOR 


A 






; ZERO A 




7i 1 B 


29 


00360 




ADD 


HL , HL 






;SHIFT OUT BIT LEFT 




7F1C 


17 


00370 




RLA 








; SHIFT INTO A 




7F1D 


29 


00380 




ADD 


HL J HL 










7F1E 


17 


00390 




RLA 












7F1F 


29 


00400 




ADD 


HL ! HL 
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7F20 


17 


00410 




RLA 












7F21 


29 


00420 




ADD 




HL, HL 








7F22 


17 


00430 




RLA 












7F23 


F5 


00440 




PUSH 




AF 






;SAVE 4 BITS 


7F24 


0E30 


00450 




LD 




C,30H 






;ASCII ZERO 


7F5:6 


D60A 


00460 




SUB 




10 






;TEST FOR -- 9 


7F28 


CB7F 


00470 




BIT 




7, A 






;TEST SIGN 


7F2A 


2002! 


00480 




JR 




NZ, BXH020 




5 60 IF 0-9 


7F2C 


0E37' 


00490 




LD 




Cf 37H 






JADJUSTHENT FOR A - F 


7F2E 


Fl 


00500 BXH020 


POP 




Hr 






; RESTORE ORIGINAL BITS 


7F2F 


81 


00510 




ADD 




C 






;ADD IN ASCII BIAS 


7F30 


12 


00520 




LD 




< Uc. / , A 






; STORE CHARACTER 


7F31 


13 


00530 




INC 




DE 






; POINT TO NEXT SLOT 


7F32 


I e)Es 


00540 




DJNZ 




BXH010 






SLOOP 'TIL 4 


7F34 


AF 


00550 




XOR 




A 






; ZERO 


7F35 


1 2 


00560 




LD 




( DE ) , A 






; STORE NULL 


7F36 


DDEl 


00570 




POP 




IX 






; RESTORE REGISTERS 


7F38 


E 1 


00580 




POP 




HL 








7F39 


Dl 


00590 




POP 




DE 








7F3A 


CI 


00600 




POP 




BC 








7F3B 


Fl 


00610 




POP 




AF 








7F3C 


C9 


00620 




RET 










! RETURN TO CALLING PROS 


0000 




00630 




END 












00000 TOTAL 


ERRORS 




















BXHEXD DECIMAL 


VALUES 












245, 


197 


? 21 3 » 


229 5 22 1 ? 


229 


, 205 


, 127, 10, 229, 






221 , 


225 


? 221 5 


110, 0, 221, 


102, 


1, 221, 94, 






25 2 


■21 ? 


86? 3» 


6 


, 4, 175 


, 41 


, 23 , 


41 , 






23 > 


41 1 


23, 41 


f 


23, 245, 


14, 


48, 


214, 10, 






203 » 


127 


J 32 s 


2, 


14, 55, 


241 


5 129 


, 18, 19, 






16? 


230? 


175> 


18 


, 221, 2 


25, 


225, 


209, 193, 241, 



201 

CHKSUM= 231 
BXOCTL: BINARY TO ASCII OCTAL CONVERSION 

System Configuration 

Model I, Model III, Model 11 Stand Alone. 

Description 

BXOCTL converts a 16-bit binary number to a string of ASCII octal digits. Each 
character in the string will be in the range of ASCII through 7 (30H through 
37H). The result string will be 6 bytes long, and is terminated with a byte of all 
zeroes. The user must specify a buffer area of 7 bytes to hold the result string. 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block for 
BXOCTL. The first two bytes of the parameter block contain the 16-bit binary 
value to be converted, in standard Z-80 16-bit representation, least significant 
byte followed by most significant byte. The next two bytes of the parameter 
block contain the buffer address for the 7-byte buffer that will hold the result. 
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On output, the buffer has been filled with the resulting string of ASCII charac- 
ters, terminated by a null. The parameter block contents remain unchanged. 



INPUT 
H L 



POINTER TO PARAM+0 



OUTPUT 



UNCHANGED 



PARAM+0 


1 6-BIT 




+ 1 


VALUE 




+2 


POINTER 






- TO BUFFER 




+3 


(MEM 1+0) 





PARAM+0 

+ 1 
+2 
+3 



-- UNCHANGED 



UNCHANGED -- 



MEM 1+0 








MEM 1+0 










+ 1 










+ 1 




RESULT 








RESERVED 










IN 




+2 




FOR 






+2 




ASCII 








RESULT 
















+3 










+3 










+4 








+4 










+5 










+5 










+6 










+6 










+7 










+7 






Algorithm 

BXOCTL goes through 6 iterations to convert each of the bits in the input value 
to an ASCII 30H through 37H (zero through seven). The value to be converted is 
put into register pair HL from the parameter block. For each iteration except the 
first, HL is shifted three bit positions with the three bits from the shift going into 
the three least significant bits of the A register. (The first iteration performs only 
one shift to handle the leading octal digit of or 1 .) 

A value of 30H is then added to the contents of A. This converts the three bits to 
an ASCII octal digit of 30H through 37H. The ASCII character is then stored in 
the user buffer. A pointer to the buffer is picked up from the parameter block 
and maintained in the DE register pair; it is incremented by one as each result 
byte is stored. The buffer is filled from low-order memory address to high-order 
memory address, corresponding to the processing of the bits from HL. 

If the binary value to be converted was 1000000000001101, the buffer would 
contain 31 H, 30H, 30H, 30H, 31 H, 35H, OOH on return. 



Sample Calling Sequence 



NAME OF SUBROUTINE? BXOCTL 
HL VALUE? 40B00 

PARAMETER BLOCK LOCATION? 40000 
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PARAMETER BLOCK VALUES? 







+ 

+ 2 2 
+ 4 
MEMORY 
MEMORY 



12345 
45000 



VALUE TO BE CONVERTED = 030071 OCTAL 



BLOCK 
BLOCK 

255 " 

255 

255 

255 

255 

255 

255 



LOCATION? 
VALUES? 



45000 



- INITIALIZE BUFFER FOR EXAMPLE 



3 
4 
5 
6 
7 

MEMORY BLOCK 2.' LOCATION? 
MOVE SUBROUTINE TO? 37777 
SUBROUTINE EXE-CUTED AT 37777 



INPUT: 






OUTPUT 








HL= 40000 




HL= 40000 






PARAM+ 





57 


PARAM+ 





57 




PARAM+ 


1 


48 


PARAM+ 


1 


48 




PARAM+ 




200 


PARAM+ 




200 




PARAM+ 


3 


175 


PARAM+ 


3 


175 




MEMB1+ 





255 


MEMB1+ 





48 




MEMB1+ 


1 


255 


MEMB 1 + 


1 


51 




MEMB1+ 




255 


MEMB1+ 




48 


-RESULT = 


MEMB1+ 


3 


255 


MEMB1+ 


3 


48 


MEMB1+ 


4 


255 


MEMB 1 + 


4 


55 




MEMB1+ 


5 


255 


MEMB1+ 


5 


49 _ 




MEMB1+ 


6 


255 


MEMB1+ 


6 


TERMINATOR 



^03W71 IN ASCII 



NAME OF SUBROUTINE? 



Notes 



1. Leading ASCI 1 zeroes may be present in the result. 

2. No invalid result may occur. 

3. The most significant ASCII character will always be either a zero (30 H) or 
a one (31 H) since 16 bits is not an integer multiple of 3 bits. 

Program Listing 



7F00 




00100 


ORG 7F00H 5 0522 








001 10 


; *ih*-)nnnm**^(--x- ******************************************** 






00120 


;* BINARY TO ASCII OCTAL CONVERSION. CONVERTS A 16-BIT 


* 






00130 


;* BINARY VALUE TO A STRING OF ASCII OCTAL DIGITS TERM- 


* 






00140 


5* INATED BY A NULL. 


* 






00150 


;* INPUT : HL=> PARAMETER BLOCK 


* 






00160 


;» PARAM+01 +1=16-BIT VALUE 


* 






00170 


;* PARAM+2,+3=BUFFER ADDRESS 


* 






00180 


5* OUTPUT s BUFFER FILLED WITH SIX ASCII OCTAL DIS- 


* 






00190 


;* ITS TERMINATED BY NULL 


« 






00200 


; **»******»** *♦»»*»*«»»»**♦»♦*»»*»*«»#**«*«#«**»«♦«#»*««« 






00210 


? 




7F00 


F5 


00220 


BXOCTL PUSH AF ;SAVE REGISTERS 




7F01 


C5 


00230 


PUSH BC 




7F02 


D5 


00240 


PUSH DE 




7F03 


E5 


00250 


PUSH HL 




7F04 


DDES 


00260 


PUSH I X 




7F06 


CD7F0A 


00270 


CALL. 0A7FH ;«**GET PB LOC N#*» 




7F09 


E5 


00280 


PUSH HL 




7F0A 


DDEl 


00290 


POP IX 
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7F0C 


DD6E00 


00300 




LD 




L, < IX+0) 




5 PUT VALUE INTO HL 


7F0F 


006601 


00310 




LD 




H, ( IX+1 ) 






7F12 


DD5E02 


00320 




LD 




E» ( IX+2) 




IPUT BUFFER ADD IN DE 


7F15 


DDS603 


00330 




LD 




D, ( IX+3) 






7F18 


0606 


00340 




LD 




B, 6 




ITERATION COUNT 


7F1A 


AF 


00350 




XOR 




A 




; ZERO A 


7FiB 


1805 


00360 




JR 




BXO020 




IFOR FIRST DIGIT 


7F1D 


AF 


00370 BXO010 


XOR 




A 




". ZERO A 


7F1E 


29 


00380 




ADD 




HL, HL 




; SHI FT OUT BIT LEFT 


7F1F 


17 


00390 




RLA 








; SHIFT INTO A 




'?Q 

JL T 


00400 




Ann 




riL- 5 flL- 






/ r jtl 


I / 


00410 


















00420 8X0020 


Ann 




riL. s riL. 








1 T 
I / 


00430 
















83c oaf 


00440 




1 n 










/ r 


o 1 


00450 




Ann 








?Ann TM ART IT RTA^ 


7F27 


12 


00460 




LD 




( DEi ) , A 




; STORE CHARACTER 


7F28 


13 


00470 




INC 




DE 




; POINT TO NEXT SLOT 


7F29 


10F2 


00480 




DJNZ 




BXO010 




SLOOP 'TIL 6 


7F2B 


AF 


00490 




XOR 




A 




;2ER0 


7F2C 


12 


00500 




LD 




< DE ) 5 A 




; STORE NULL 


7F2D 


DDEl 


00510 




POP 




IX 




5 RESTORE REGISTERS 


7F2F 


El 


00520 




POP 




HL 






7F30 


01 


00530 




POP 




DE 






7F31 


CI 


00540 




POP 




BC 






7F32 


Fl 


00550 




POP 




AF 






7F33 


C9 


00560 




RET 








; RETURN TO CALLING PROG 


0000 




00570 




END 










00000 TOTAL 


ERRORS 


















BXOCTL DECIMAL 


VALUES 










245 . 


197, 


213, 


229 


, 221, 229 


, 205 


, 1 27 , 10, 229, 






221, 


225, 


221, 


1 10 


, 0, 221, 


102, 


1, 221, 94, 






2, 2 


21 , 86 


, 3, 


6, 


6, 175, 24 


, 5, 


175, 






41, 


23, 41 


, 23 


, 41 


, 23, 14, 


48, 1 


29, 18, 






19, 


16, 24 


2, 175, 


IB, 221, 2 


25, 2 


25, 209, 193, 






241, 


201 













CHKSUM= 10 

CHKSUM: CHECKSUM MEMORY 



System Configuration 

Model I, Model III, Model II Stand Alone. 



Description 

CHKSUM checksums a block of memory for verification of data. The checksum 
performed is a simple additive 8-bit checksum. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block define the starting address for the block of 
memory to be checksummed in standard Z-80 address format, least significant 
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byte followed by most significant byte. The next two bytes of the parameter 
block contain the number of bytes in the block to be checksummed. 

On output, HL contains the checksum of the block of memory. 



INPUT 



POINTER TO PARAM+0 



OU TPUT 
H L 



CHECKSUM 



PARAM -0 



POINTER TO 
START OF 
BLOCK (MEM 1-0) 



# OF BYTES 
IN BLOCK 



PARAM4 



-- UNCHANGED -- 



+ 1 
+2 
+3 



UNCHANGED 



MEM 1+0 

+ 1 
+2 
+3 
+4 
+5 
+6 



BYTES 
TO BE 
CHECKSUMMED 



MEM 1+0 

+ 1 
+2 
+3 
+4 
+5 
+6 



UNCHANGED 



Algorithm 

The CHKSUM subroutine first picks up the number of bytes in the block and 
puts it into the HL register pair. Next, the starting address is put into the IX 
register. The A register is cleared for the checksum. 

The loop at CHK01 adds in each byte from the memoy block. The count in HL 
is decremented by a subtract of one in BC, and the pointer in IX is adjusted to 
point to the next memory byte. 

Sample Calling Sequence 

NAME OF SUBROUTINE? CHKSUM 
HL VALUE? 43000 

PARAMETER BLOCK LOCATION? 43000 
PARAMETER BLOCK VALUES? 



+ 




45000 START OF BLOCK 


+ 2 




S 


8 BYTES IN BLOCK 


+ 4 










MEMORY 


BLOCK 


1 LOCATION? 45000 


MEMORY 


BLOCK 


1 VALUES? 


+ 


1 


1 




+ 1 


1 






+ 2 


.1 


4 




+ 3 


1 


8 




+ 4 


1 


16 


- SAMPLE DATA 


■+• 5 


1 


32 




+ 6 


1 


64 




+ 7 


1 


128 




+ S 
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MEMORY BLOCK 2 LOCATION? 
MOVE SUBROUTINE TO? 46000 
SUBROUTINE EXECUTED AT 46000 



input: 






OUTPUT: 






HL= 43000 




HL= 255 


on cor 


PARAM+ 





200 


OA a AM ^ 

rARAM+ 







PARAM+ 


1 


175 


OA ri A lvl_i_ 

rARAn+ 


1 


4 -yiZ 


PARAM+ 




8 


PARAM+ 


■7 


O 

o 


PARAM+ 


3 





PARAM+ 


3 


\£} 


MEMB1+ 





1 


MEMB1+ 





1 


MEMB1+ 


1 




MEMB1+ 


1 




MEMB1+ 




4 


MEMB1+ 




4 


MEMB1+ 


3 


8 


MEMB1+ 


3 


8 


MEMB1+ 


4 


16 


MEMB1+ 


4 


16 


MEMB1+ 


5 


3^ 


MEMB1+ 


5 


32 


MEMB1+ 


6 


64 


MEMB1+ 


6 


64 


MEMB1+ 


7 


128 


MEMB1+ 


7 


128 



.+ 128 



UNCHANGED 



NAME OF SUBROUTINE? 



Notes 

1 . The CHKSUM subroutine is used to compute the checksum for all subrou- 
tines in this book. 



Program Listing 



7F00 




00100 




ORe 




7F00H 


5 0522 






00110 


; ********* 






00120 


;* CHECKSUM 


*1EM0RY. CHECKSUMS A 


BLOCK OF MEMORY. * 






00130 


;* 


INPUT: 


HL 


=> PARAMETER BLOCK 


* 






00140 


;» 




PARAM+0! +1=STARTING 


ADDRESS OF BLOCK * 






00150 


; * 




PARAM+2,+3=# OF BYTES IN BLOCK * 






00160 


;* 


OUTPUT 


:HL= 


=ADDITIVE CHECKSUM * 






00170 


; ******************************************************** 






00180 


7 










7F00 


F5 


00190 


CHKSUM 


PUSH 




AF 


5SAVE REGISTERS 


7F01 


C5 


00200 




PUSH 




BC 




7F02 


D5 


00210 




PUSH 




DE 




7F03 


DDES 


00220 




PUSH 




IX 




7F05 


CD7F0A 


00230 




CALL 




0A7FH 


;*«*GET PB LOC'N*** 


7F08 


E5 


00240 




PUSH 




HL 


; TRANSFER HL TO IX 


7F09 


DDEl 


00250 




POP 




IX 




7F0B 


DD6E02 


00260 




LD 




L» ( IX+2) 


;GET # OF BYTES 


7F0E 


DD6603 


00270 




LD 




H, ( IX+3) 




7F11 


DD5E00 


00280 




LD 




E, ( IX+0) 


;GET STARTING ADDRESS 


7F14 


DD5601 


00290 




LD 




D, ( IX+1 ) 




7F17 


D5 


00300 




PUSH 




DE 


; TRANSFER TO IX 


7F18 


DDEl 


00310 




POP 




IX 




7F1A 


010100 


00320 




LD 




BCs 1 


5 DECREMENT VALUE 


7F1D 


AF 


00330 




XOR 




A 


; CLEAR CHECKSUM 


7F1E 


DDe600 


00340 


CHK010 


ADD 




A» < IX+0) 


; CHECKSUM 


7F21 


DD23 


00350 




INC 




IX 


JBUMP ADDRESS PNTR 


7F23 


B7 


00360 




OR 




A 


; CLEAR CARRY 


7F24 


ED42 


00370 




SBC 




HLsBC 


! DECREMENT COUNT 


7F26 


20F6 


00380 




JR 




NZ. CHK010 


;G0 IF NOT DONE 


7F2S 


6F 


00390 




LD 




L,A 


;MOVE CHECKSUM TO HL 


7F29 


2600 


00400 




LD 




H,0 




7F2B 


DDEl 


00410 




POP 




IX 


{RESTORE REGISTERS 


7F2D 


Dl 


00420 




POP 




DE 




7F2E 


CI 


00430 




POP 




BC 




7F2F 


Fl 


00440 




POP 




AF 





70 



7F30 C39A0A 00450 JP 0A9AH ;***RETURN STATUS*** 

7F33 00460 RET ! NON-BASIC RETURN 

0000 00470 END 

00000 TOTAL ERRORS 



CHKSUM DECIMAL VALUES 



245, 197, 213? 221, 229, 205, 127, 10, 229, 221, 
225, 221, 110, 2, 221, 102, 3, 221, 94, 0, 
221, 86, 1, 213, 221, 225? 1, 1, 0, 175, 
221, 134, 0, 221, 35, 183, 237, 66, 32, 246, 
111, 38, 0, 221, 225, 209, 193, 241, 195, 154, 
10, 201 



CHKSUM= 245 



CLEARS: CLEAR SCREEN 



System Configuration 
Model I, Model III. 



Description 

CLEARS clears the video screen or outputs a given character to fill the screen. 
For a clear screen, the character is normally a blank (20H), or a graphics "all 
off" character (080 H). 



Input/Output Parameters 

On input, the HI register pair contains the character to be used in the fill. (The 
L register contains the 8-bit character while the H register contains zero.) On 
output, the screen has been cleared or filled. 



INPUT 



OUTPUT 



FILL CHAR 



UNCHANGED 



Algorithm 

The CLEARS subroutine is similar to a "fill memory" subroutine except that the 
memory to fill is defined as 3 COO LI through 3FFFH. 

The start of video d isplay memory, 3C00H, is put into HL and the character for 
the fill is transferred to B. The loop at CLE010 fills a byte at a time. For each fill, 
the video display memory pointer is incremented by one and the contents of 
the H register are tested. If H holds 40H, the last screen location has been filled. 
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Sample Calling Sequence 



NAME OF SUBROUTINE? CLEARS 

HL VALUE? 65 CLEAR CHARACTER OF "A" 

PARAMETER BLOCK LOCATION? 

MEMORY BLOCK 1 LOCATION? 

MOVE SUBROUTINE TO? 37000 

SUBROUTINE EXECUTED AT 37000 

INPUT: OUTPUT: 

HL= 65 HL= 65 UNCHANGED 



NAME OF SUBROUTINE? 



Notes 

1 . The CLEARS subroutine clears the screen in approximately 21 millisec- 
onds. 



Program Listing 



7F00 00100 ORG 7F00H 10520 

001 10 ; ***#*#*##****#*****»*«#*****##**#««*«***##«****#*##*#«-** 

00120 ;» CLEAR SCREEN. CLEARS THE SCREEN OR FILLS THE SCREEN # 

00130 !* WITH ANY GIVEN CHARACTER. # 

00140 !* INPUT: HL=CHARACTER FOR CLEAR? NORMALLY 20H OR B0H * 

00150 ;* OUTPUT: NONE * 

00160 5 *»»#**#****»»****»#♦*#*###*#**»*##♦#«*»#«**»#*«#»#»♦*♦## 

00170 ; 



7F00 


F5 


00180 


CLEARS 


PUSH 


AF 


;SAVE REGISTERS 


7F01 


C5 


00190 




PUSH 


BC 




7F02 


E5 


00200 




PUSH 


HL 




7F03 


CD7F0A 


00210 




CALL 


0A7FH 


;***GET CLEAR CHAR#** 


7F06 


45 


00220 




LD 


BfL 


; TRANSFER TO B 


7F07 


21 003 C 


00230 




LD 


HL.3C00H 


; START OF SCREEN ADDRESS 


7F0A 


70 


00240 


CLE010 


LD 


( HL ) , B 


;FILL SCREEN BYTE 


7F0B 


23 


00250 




INC 


HL 


;BUMP SCREEN POINTER 


7F0C 


7C 


00260 




LD 


A,H 


!6ET MS BYTE OF POINTER 


7F0D 


FE40 


00270 




CP 


40H 


; TEST FOR END+1 


7F0F 


20F9 


00280 




JR 


NZs CLE010 


; CONTINUE IF NOT END 


7F11 


El 


00290 




POP 


HL 


; RESTORE REGISTERS 


7FI2 


CI 


00300 




POP 


BC 




7F13 


Fl 


00310 




POP 


AF 




7F14 


C9 


00320 




RET 




; RETURN TO CALLING PROGRAM 


0000 




00330 




END 







00000 TOTAL ERRORS 



CLEARS DECIMAL VALUES 



245» 197> 229> 205f i27> 10) 69« 33. 05 60, 
112? 35? 124? 2545 64? 32? 249, 225 ? 193> 241, 
201 



CHKSUM= 89 



CSCLNE: CLEAR SCREEN LINES 



System Configuration 
Model I, Model III. 
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Description 



CSCLNE clears from one to 16 screen lines with blank (20 H) characters. The 
lines cleared may be any set of contiguous lines on the screen, starting with any 
given line. 



Input/Output Parameters 

On input, the H register contains the start line number, from through 1 5, and 
the L register contains the end line number, from through 15. On output, the 
designated screen lines have been cleared and HL is unchanged. 



INPUT 



H 


L 


START LINE 


END LINE 


0-15 


0-15 



OUTPUT 
H L 



UNCHANGED 



Algorithm 

The CSCLNE subroutine first finds the total number of lines involved in the 
clear. The start line number is subtracted from the end line number, and this 
value is incremented by one. Next, this line count is multiplied by 64 to find the 
total number of video display memory bytes to be cleared (CSC010). 

The starting video memory location is then found by multiplying the starting 
line number by 64 (CSC020) and adding this value to the screen start location of 
3C00H. 

The loop at CSC030 stores a blank character in the screen locations involved. 
HL contains the pointer to screen memory, which is incremented each time 
through the loop, and DE contains the number of screen bytes to be filled. The 
count in DE is tested for zero by the "load and OR" operation. 

Sample Calling Sequence 

NAME OF SUBROUTINE? CSCLNE 

HL VALUE? 1800 START LINE = 7, END LINE = 8 

PARAMETER BLOCK LOCATION? 

MEMORY BLOCK 1 LOCATION? 

MOVE SUBROUTINE TO? 55000 

SUBROUTINE EXECUTED AT 55000 

INPUT: OUTPUTS 

HL= 1B00 HL= 1800 UNCHANGED 

NAME OF SUBROUTINE? 
Notes 

1. Use the CLEARS subroutine to clear the entire screen. 

2. No check is made on the validity of the line numbers in HL. If the wrong 
values are used, the system may crash. 

3. The end line number must be greater or equal to the start line number. 

4. Use an 80 H in location 7F23H for a "graphics" clear. 
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Program Listing 



7F00 




001 00 




ORG 




7F00H 


; 0522 






fiJvj J, J. 


; ###**#*«#***«■*###**#«««•***###*****#*««♦*#**»«**#«■***** 






00 1 20 


;* CLEAR SCREEN 


LINE. CLEARS 


THE SCREEN FROM A GIVEN 






00130 

KJVJ J, \^%J 


;* START LINE 


THROUGH A GIVEN 


END LINE. 






00140 


;» 


INPUT: 


HL 


=START LINE(H) 


5 END LINE(L) 0-15 






00150 




OUTPUT-. 


SCREEN LINES CLEARED WITH BLANKS 






00160 


; #»#♦##«###**###«#***#«#**#######*#*##*«*###»#*#**###*# 






00170 












7F00 


F5 


00180 


CSCLNE 


PUSH 




AF 


; bAvh KhSIbTERb 


7F01 


C5 


00190 




PUSH 




BC 




7F02 


D5 


00200 




PUSH 




DE 




7F03 


E5 


00210 




PUSH 




HL 




7F04 


CD7F0A 


00220 




CALL 




0A7FH 


;*#*6ET LINE NC)S»** 


7F07 


E5 


00230 




PUSH 




HL 


;SAVE 


7F0e 


7D 


00240 




LD 




A) L 


; END L I NE NUliBE R 


7F09 


94 


00250 




buy 




Li 

n 




7F0A 


3C 


00260 




INC 




A 


; TOTAL NUMBER OF LINES 


7F0B 


6F 


00270 




LD 




L» A 


; TOTAL TO L 


7F0C 


2600 


00280 




LD 




H? 


5 NOW IN HL 


7F0E 


0606 


00290 




LD 




B»6 


; ITERATION COUNT 


7F10 


29 


00300 


CSC010 


ADD 




HLiHL 


!# LINES » 64=# CHARS 


7F11 


10FD 


00310 




DJNZ 




CSC010 


;LOOP ' TIL DONE 


7F13 


E5 


00320 




PUSH 




HL 


; TRANSFER # CHARACTERS 


7F14 


Dl 


00330 




POP 




DE 


;NOW IN DE 


7F15 


El 


00340 




POP 




HL 


;ORIGINAL LINE #S 


7F16 


6C 


00350 




LD 




L»H 


; START LINE # 


7F17 


2600 


00360 




LD 




H,0 


SNOW IN HL 


7F19 


0606 


00370 




LD 




B?6 


; ITERATION COUNT 


7F1B 


29 


00380 


CSC020 


ADD 




HL » HL 


5 FIND DISPLACEMENT 


7F1C 


10FD 


00390 




DJNZ 




CSC020 


SLOOP 'TIL DONE 


7F1E 


01003C 


00400 




LD 




BC!3C00H 


5 START OF SCREEN 


7F21 


09 


00410 




ADD 




HLsBC 


5F1ND START MEMORY LOC 


7F22 


3620 


00420 


CSC030 


LD 




< HL ) 5 ' ' 


; STORE BLANK 


7F24 


23 


00430 




INC 




HL 


5 BUMP SCREEN POINTER 


7F25 


IB 


00440 




DEC 




DE 


5 DECREMENT COUNT 


7F26 


7A 


00450 




LD 




AfD 


STEST COUNT 


7F27 


B3 


00460 




OR 




E 




7F28 


20FS 


00470 




JR 




NZ» CSC030 


5 GO IF DE NE ZERO 


7F2A 


El 


00480 




POP 




HL 


; RESTORE REGISTERS 


7F2B 


Dl 


00490 




POP 




DE 




7F2C 


CI 


00500 




POP 




BC 




7F2D 


Fl 


00510 




POP 




AF 




7F2E 


C9 


00520 




RET 






5 RETURN TO CALLING PROG 


0000 




00530 




END 









00000 TOTAL ERRORS 



CSCLNE DECIMAL VALUES 



245, 197. 213? 229, 205, 127, 10, 229, 125, 148, 
60, 111, 38, 0, 6, 6, 41, 16, 253, 229, 
209, 225, 108, 38, 0, 6, 6, 41, 16, 253, 
1, 0, 60, 9, 54, 32, 35, 27, 122, 179, 
32, 248, 225, 209, 193, 241, 201 



CHKSUM= 138 



CSTRNG: STRING COMPARE 

System Configuration 

Model I, Model III, Model II Stand Alone. 
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Description 



CSTRNG compares two strings and tests for equality, string 1 < string 2 and 
string 1 > string 2. By "string," we nnean two blocks of memory that may or 
may not be of equal length containing byte-oriented data. This includes not 
only the BASIC definition of character strings, but other types of data as well, 
such as two strings of binary data. The comparison is an "unsigned" compari- 
son where bytes in the range 080 H through OFFH are considered larger than 
zero. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
byte of the parameter block holds the number of bytes in string 1 . The next two 
bytes contain the address of string 1 in standard Z-80 address format, least 
significant byte followed by most significant byte. The next byte in the parame- 
ter block holds the number of bytes in string 2. The next two bytes are the 
address of string 2 in Z-80 address format. The next byte of the parameter block 
(PARAM-f 6) is reserved for the result of the comparison. 

On output, PARAM-f 6 holds a zero if the strings are equal, a minus number if 
string! < string 2, or a positive number if string 1 > string 2. For two strings of 
unequal length where the longer string holds the shorter string as a "substring," 
the result in PARAM-F 6 is negative if string 1 is shorter, or positive if string 2 is 
shorter. 



INPUT 



OUTPUT 



POINTER TO PARAM+0 



UNCHANGED 



# BYTES STRING 1 



ADDRESS 
OF STRING 1 

(MEM 1+0) 



# BYTES STRING 2 



ADDRESS 
OF STRING 2 
(MEM2r0) 



RESERVED 
FOR RESULT 



PARAM+0 

+ 1 



-- UNCHANGED 



+2 
+3 
+4 
+5 
+6 



UNCHANGED 



UNCHANGED 



UNCHANGED 



RESULT; 0=SAME, 
1 = 1>2, --1--K2 



MEM 1+0 
+ 1 
+2 
+3 
+4 
+5 
+6 



STRING 



MEM 1+0 
+ 1 
+2 

^ +3 
+4 
+5 
+6 



UNCHANGED 
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MEM2 t-0 

+ 1 
+2 
+3 
+4 
+5 
+6 



STRING 
2 



MEM2+0 

+ 1 



+2 
+3 
+4 
+5 
+6 



UNCHANGED 



Algorithm 

The CSTRNC subroutine first compares the lengths of string 1 and string 2. It 
puts the smallest length value into the B register (CST010) and the comparison 
result of string 1 length— string 2 length in the C register. 

Next, the address of string 2 is put into the lY register and the address of string 1 
into the HL register. 

The code at CST020 is the comparison loop. A subtract of each consecutive 
byte of the strings is done. Two conditions result from the subtract. If the sub- 
tracts are zero for the total number of bytes of the shorter string, the size com- 
parison in C is put into the result. If this size comparison was zero, the strings 
are of equal length and are identical. If the size comparison was not zero, the 
comparison value reflects the "substring" condition detailed above. 

If any subtract is not zero, the strings are unequal, and a jump to CST040 puts 
the sense of the comparison in the result. 



Sample Calling Sequence 



NAME OF SUBROUTINE? CSTRNS 
HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 
PARAMETER BLOCK VALUES? 




1 
3 
4 
6 
7 

MEMORY 
MEMORY 
+ 1 
+ 1 1 
+ 2 1 
+ 30 
MEMORY 
MEMORY 



3 

45000 
5 

46000 




3 BYTES IN STRING 1 
STRING 1 ADDRESS 
5 BYTES IN STRING 2 
STRING 2 ADDRESS 



BLOCK 
BLOCK 
1 

255 
3 


BLOCK 
BLOCK 
1 

254 
3 
4 
5 



LOCATION? 
VALUES? 



45000 



-STRING 1 



LOCATION? 
VALUES? 



46000 



■STRING 2 



+ 1 
+ 1 1 
+ 2 1 
+ 3 1 
+ 4 1 
+ 500 

MOVE SUBROUTINE TO? 
SUBROUTINE EXECUTED 
INPUT: 
HL= 40000 



38000 
AT 3B000 
OUTPUT: 
HL= 40000 
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PARAM+ 





3 


PARAM+ 





3 


PARAM+ 


1 


200 


PARAM+ 


1 


200 


PARAM+ 


2 


175 


PARAM+ 




175 


PARAM+ 


3 


5 


PARAH+ 


3 


5 


PARAH+ 


4 


176 


PARAM+ 


4 


176 


PARAM+ 




179 


PARAM+ 


5 


179 


PARAH+ 


6 





PARAM+ 


6 


1 R 


MEMB1+ 





1 


MEMB1+ 





1 ^ 


HEMB1+ 


1 


255 


HEMB1+ 


1 


255 


MEMB1+ 


2; 


3 


MEHB1+ 




3 


MEMB2+ 





1 


HEMB2+ 





1 


MEHB2+ 


1 


254 


HEMB2+ 


1 


254 


MEMB2+ 




3 


MEHB2+ 




3 


MEMB2+ 


3 


4 


HEHB2+ 


3 


4 


MEMB2+ 


4 


5 


MEHB2+ 


4 


5 



-UNCHANGED 



UNCHANGED 



NAHE OF SUBROUTINE? 



Notes 

1 . The maximum number of bytes in either string may be 256, represented by 
in the # of bytes parameter. 

2. Output is a signed number at PARAM+6. 



Program Listing 



7F00 




00100 


ORG 


7F00H 




10520 






001 10 


; ******************************************************** 






00120 


;* STRING COMPARE. COMPARES 


TWO 


STRINGS. * 






00130 


;* INPUT: 


HL=> PARAMETER 


BLOCK » 






00140 


1* 


PARAM+0=# BYTES 


OF 


STRING 1 * 






00150 


5* 


PARAM+1 s +2=ADDRESS 


OF STRING 1 » 






00160 


; # 


PARAM+3=# BYTES 


OF 


STRING 2 » 






00170 


;# 


PARAM+4» +5=ADDRESS 


OF STRING 2 * 






10180 


!* 


PARAM+6=RESERVED FOR RESULT » 






00190 


OUTPUT :PARAM+6=0 IF STRINGS EQUAL? - IF * 






00200 


;* 


STRINGKSTRING2 




IF STRING1>STRING2 * 






00210 


; **«*»**««#*****«#*«#**«»*#*###************«#****«**««**# 






00220 


; 








7F00 


F5 


00230 


CSTRN6 PUSH 


AF 




;SAVE REGISTERS 


7F01 


C5 


00240 


PUSH 


BC 






7F02 


E5 


00250 


PUSH 


HL 






7F03 


DDE5 


00260 


PUSH 


IX 






7F05 


FDE5 


00270 


PUSH 


lY 






7F07 


CD7F0A 


00280 


CALL 


0A7FH 




!«#*GET PB ADDRESS*** 


7F0A 


E5 


00290 


PUSH 


HL 




{TRANSFER TO IX 


7F0B 


DDEl 


00300 


POP 


IX 






7F0D 


DD4600 


00310 


LD 


B5 ( IX+0) 




5# OF 1 


7F10 


0E00 


00320 


LD 


C,0 




5STRIN61=STRINS 2 FLAG 


7F12 


DD7E00 


00330 


LD 


A> ( IX+B) 




?GET # BYTES OF STRING 1 


7F15 


DDBE03 


00340 


CP 


< IX+3) 




;# OF l-# OF 2 


7F18 


280B 


00350 


JR 


Z5 CST010 




;G0 IF STRINGS EQUAL LEN 


7F1A 


3807 


00360 


JR 


Cf CST005 




;60 IF # 0F 1<# OF 2 


7F1C 


DD4603 


00370 


LD 


B> <IX+3) 




!GET SMALLER # 


7F1F 


0E01 


00380 


LD 


C» 1 




SSTRING i>STRING 2 


7F21 


1802 


00390 


JR 


CST010 






7F23 


0EFF 


00400 


CST005 LD 


C5-I 




JSTRING KSTRING 2 CASE 


7F25 


DD6E04 


00410 


CST010 LD 


L, ( IX+4) 




!GET ADDRESS OF STRING 2 


7F28 


DD6605 


00420 


LD 


H) < IX+5) 






7F2B 


E5 


00430 


PUSH 


HL 




; TRANSFER TO lY 


7F2C 


FDEl 


00440 


POP 


lY 






7F2E 


DD6E01 


00450 


LD 


L. ( IX+1 ) 




!GET ADDRESS OF STRING 1 
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7F31 


DD6602 


00460 


LD 


H, < IX+2) 




7F34 


7E 


00470 


CST020 LD 


As (HL ) 


;GET STRING 1 BYTE 


7F35 


FD960B 


00480 


SUB 


< I Y+0 ) 


5 COMPARE 


7F38 


2008 


00490 


JR 


N2 , CST040 


!G0 IF NOT EaUAL 


7F3A 


23 


00500 


INC 


HL 


;BUMP STRING 1 POINTER 


7F3B 


FD23 


00510 


INC 


lY 


;BUMP STRING 2 POINTER 


7F3D 


1BF5 


00520 


DJNZ 


CSTB20 


;LOOP IF EQUAL 


7F3F 
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00530 


LD 


As C 


;GET SIZE COMPARISON 


7F4B 


1SB6 


00540 


JR 


CST050 




7F42 


3E01 


00550 


CST040 LD 


As 1 


SSTRING 1>STRING 2 


7F44 


3002 


00560 


JR 


NC, CST050 


IGO IF OK 


7F46 


3EFF 


00570 


L0 


As -1 


! STRING 1-:'STRTMG 2 


7F48 


DD7706 


00580 


CST050 LD 


( IX+6) s A 


; STORE IN RESULT 


7F4B 


FDEl 


00590 


POP 


I Y 


; RESTORE REGISTERS 


7F4D 


DDEl 


00600 


POP 


IX 




/ r 






PAP 


rfiU. 




7F50 


CI 


00620 


POP 


BC 




7F51 


Fl 


00630 


POP 


AF 




7F52 


C9 


00640 


RET 




1 RETURN TO CALLING PROGRAM 


0000 




00650 


END 












CSTRNG DECIHAL 


VALUES 










245 5 197) 229 


, 221s 2295 253, 


229s 205, 127, 10, 








-770 , ■-•■-•1 , ■7"/'=, 
















22 1 s 70 , 








3> 14> 1? 24? 


2, 14, 255, 221, 


110, 4, 










jI-jC-/? >i-J7 J— J '3 J 1— 


1 , 110, 1 , ■-■■-■I , 








102? 2) 126! 


253, 150, 0, 32, 


8s 35, 253, 








15! 16, 245, 


121 , 24 , 6 , 62 , 1 


, 48s 2, 








62, 255, 221, 


119, 6, 253, 225 


, 221, 225, 225, 








193, 241, 201 












CHKSUM= 55 







DELBLK: DELETE BLOCK 



System Configuration 

Model I, Model III, Model II Stand Alone. 

Description 

DELBLK deletes a block in the middle of a larger block of memory. The block is 
deleted by moving up all bytes after the deletion block as shown below. This 
subroutine could be used for deleting a block of text, for example, and moving 
the remaining text into the deleted block. Both the "larger block" and "dele- 
tion block" may be any size up to the limits of memory. 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the address of the larger block in 
standard Z-80 address format, least significant byte followed by most significant 
byte. The next two bytes are the address of the deletion block in Z-80 address 
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format. The next two bytes of the parameter block (PARAM+ 4,+ 5) contain the 
number of bytes in the larger block; the next two bytes contain the number of 
bytes in the deletion block. Both are in standard Z-80 format. 

On output, the contents of the parameter block remain unchanged. The dele- 
tion block has been deleted by a move of the remaining bytes of the larger 
block into the deletion area. 



INPUT 



OUTPUT 



H 



POINTER TO PARAM+0 



UNCHANGED 



PARAM+0 


START ADDRESS 




- OF LARGER - - 


+ 1 


BLOCK (MEM 1+0) 


+2 


START ADDRESS 




OF DELETE - - 


+3 


BLOCK 


+4 


# OF BYTES 




- IN LARGER -- 


+5 


BLOCK 


+6 


# OF BYTES 




IN DELETE 


+7 


BLOCK 



PARAM+0 

+ 1 



-- UNCHANGED 



+2 
+3 
+4 
+5 
+6 
+7 



UNCHANGED -- 



-- UNCHANGED -- 



-- UNCHANGED -- 



MEM 1+0 

+ 1 
+2 
+3 



START 
ADDRESS. 

OF 
DELETE 
BLOCK 



LAST-1 
LAST 



LARGER 
BLOCK 



, / DELETE 
-/ BLOCK ^ , 



MEM 1+0 

+ 1 
+2 



LARGER 
BLOCK 
WITH 
DELETE 
BLOCK 

DELETED 



LAST-1 
LAST 



Algorithm 

The DELBLK subroutine performs the deletion by doing a block move of the 
remaining bytes of the larger block into the deletion area. At the LDIR, HL 
contains the address of the location directly after the deletion block, DE con- 
tains the address of the deletion block, and BC contains the number of bytes 
remaining in the larger block after the deletion block. 
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The destination location (DE) is simply the deletion block address. This is saved 
for the LDIR in the stack. The source location (HL) is found by adding the 
deletion block address and the size of the deletion block. This is then pushed 
into the stack for LDIR use. The number to move is found by subtracting the 
source location (HL) from the last location of the larger block plus one. 



Sample Calling Sequence 



NAME OF SUBROUTINE? 
HL VALUE7 40000 
PARAMETER BLOCK 
PARAMETER BLOCK 



DELBLK 







+ 4 2 
+ 6 2 
•+■ 8 
MEMORY 
MEMORY 




1 

3 
4 
5 
6 
7 
8 
9 

10 



45000 

45003 

10 

3 



BLOCK 
BLOCK 



1 



LOCATION? 40000 
VALUES? 
START OF LARGER BLOCK 
START OF DELETION BLOCK 
10 BYTES IN LARGER BLOCK 
3 BYTES IN DELETION BLOCK 



LOCATION? 
VALUES? 



45000 



- DELETION BLOCK 



LARGER BLOCK 





MEMORY BLOCK 2 LOCATION? 
MOVE SUBROUTINE TO? 37777 
SUBROUTINE EXECUTED AT 37777 



INPUT: 






OUTPUT 






HL= 40000 




HL= 40000 




PARAM+ 





200 


PARAM+ 





200 


PARAMO- 


1 


175 


PARAM+ 


1 


175 


PAR AM+ 




203 


PARAM+ 




203 


PARAM+ 


3 


175 


PARAM+ 


3 


175 


PARAM+ 


4 


10 


PARAM+ 


4 


10 


PARAM+ 


5 





PARAM+ 


5 





PARAM+ 


6 


3 


PARAM+ 


6 


3 


PARAM+ 


7 





PARAM+ 


7 





MEMB1+ 








MEMB1+ 








MEMB1+ 


1 


1 


MEMB1+ 


1 


1 


MEMB1+ 






MEMB1+ 


^ 


2 


MEMB1+ 


3 


3 


MEMB1+ 


3 


6 


MEMB1+ 


4 


4 


MEMB1+ 


4 


7 


MEMB1+ 


5 


5 


MEMB1+ 


5 


8 


MEMB1+ 


6 


6 


MEMB1+ 


6 


9 _ 


MEMB1+ 


7 


7 


MEMB1+ 


7 


7 


MEMB1+ 


8 


8 


MEMB1+ 


B 


8 


MEMB1+ 


9 


9 


MEMB1+ 


9 


9 



- NEW BLOCK 



GARBAGE BYTES 



NAME OF SUBROUTINE? 



Notes 

1 . The maximum number of bytes in either block may be 65,535. 

2. There will be a number of "garbage" bytes at the end of the larger block 
after the move. 
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Program Listing 

7F00 00100 ORG 7F00H 5 0522 

001 10 ; ***#«##««#**«*#*»#*♦«#»*#»#»*«***»*«******»*»#***#*#*»** 
00120 ;* DELETE BLOCK. DELETES BLOCK IN MIDDLE OF LARGER BLOCK* 
00130 ;* input: HL=> PARAMETER BLOCK * 
00140 ;* PARAM+05+l=START ADDRESS OF LARGER BLOCK # 

00150 ;* PARAM+2,+3=START ADDRESS OF DELETE BLOCK * 

00160 ;* PARAM+4?+5=# OF BYTES IN LARGER BLOCK * 

00170 ?* PARAM+6,+7=# OF BYTES IN DELETE BLOCK * 

00180 !« OUTPUTsDELETE BLOCK DELETED BY MOVING UP REMAIN- * 
00190 ;* DER OF LARGER BLOCK * 

00200 ; *#*♦**#****#*»#«**#*****♦*♦*■»*«*###****♦***»#»*«»#**#*»♦ 















/r 010 


C5 


00220 DELBLK 


PUSH 


BC 


; SAVE REGISTERS 


/rial 


U3 




rUoH 


Ut 




/rm^ 


r-c 

fc3 


00240 


PUSH 


HL 




7F03 


DDES 


00250 


PUSH 


I X 




7F05 


CD7F0A 


00260 


CALL 


0A7FH 


; »»»GET PB ADDRESS*** 


7F08 


E5 


00270 


PUSH 


HL 


; TRANSFER TO IX 


7F09 


DDEl 


00280 


POP 


IX 




7F0B 


DD6E02 


00290 


LD 


Lj ( IX+2) 


;PUT DELETE BLK ADD IN HL 


7F0E 


DD6603 


00300 


LD 


Hj ( IX+3) 




7F11 


E5 


00310 


PUSH 


HL 


; DESTINATION FOR LDIR 


7F12 


DD4E06 


00320 


LD 


C) ( I X+6 ) 


; PUT SIZE OF DEL BLK IN BC 


7F15 


DD4607 


00330 


LD 


Bi < I X+7 ) 




7FIS 


09 


00340 


ADD 


HL) BC 


;FIND SOURCE LOC'N 


ft 17 


fc.3 


00350 


PUSH 


HL 


;SAVE FOR LDIR 


7F1A 


DD6E00 


00360 


LD 


L, ( IX+0) 


!PUT START INTO HL 


7F1D 


DD6601 


00370 


LD 


H> ( IX+1 ) 




7F20 


DD4E04 


00380 


LD 


C> ( IX+4) 


;GET SIZE OF LARGE BLOCK 


7F23 


DD4605 


00390 


LD 


B, (IX+5) 




7F26 


09 


00400 


ADD 


HLiBC 


;LAST LOC'N + ONE 


7F27 


Dl 


00410 


POP 


DE 


5 GET SOURCE LOCATION 


7F28 


B7 


00420 


OR 


A 


; CLEAR CARRY 


7F29 


ED52 


00430 


SBC 


HL?DE 


;FIND # TO MOVE 


7F2B 


E5 


00440 


PUSH 


HL 


; TRANSFER TO BC 


7F2C 


CI 


00450 


POP 


BC 




7F2D 


El 


00460 


POP 


HL 


;get destination 


7F2E 


EB 


00470 


EX 


DEsHL 


;SWAP DE AND HL 


7F2F 


EDB0 


00480 


LDIR 




; MOVE 'EM 


7F31 


DDEl 


00490 


POP 


IX 


? RESTORE REGISTERS 


7F33 


El 


00500 


POP 


HL 




7F34 


01 


00510 


POP 


DE 




7F35 


01 


00520 


POP 


BC 




7F36 


C9 


00530 


RET 




! RETURN TO CALLING PROS 


0000 




00540 


END 







00000 TOTAL ERRORS 



DELBLK DECIMAL VALUES 



1975 2135 2295 221 5 229? 205» 127, 105 2295 2215 

2255 2215 1105 25 221, 1025 35 229? 2215 785 

65 221 5 705 75 95 2295 2215 1105 05 2215 

1025 I5 221 5 785 45 2215 705 55 9, 2095 

1835 2375 825 2295 1935 225 5 235 5 237 5 1765 2215 

225 5 225 5 2095 1935 201 

CHKSUM= 186 



DRBOXS: DRAW BOX 

System Configuration 
Model I, Model III. 



Description 

DRBOXS draws a rectangle on the video display. The rectangle may start at any 
screen position and may be any size as long as it does not overrun the screen 
boundaries. The rectangle is drawn on a character position basis. 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
byte of the parameter block contains the upper left-hand corner character posi- 
tion (x) from to 63. The next byte of the parameter block contains the upper 
left-hand corner line position (y) from to 15. The next byte of the parameter 
block contains the width of the rectangle in character positions, 2 to 63. The 
next byte of the parameter block contains the height of the rectangle in charac- 
ter positions, 2 to 16. 

On output, the contents of the parameter block remain unchanged. The box 
has been drawn on the screen. 

INPUT 

H L 

I 1 — 

POINTER TO PA 

I _ 1 



PARAM+0 UPPER LFl 

+ 1 UPPER LFl 

+2 WIDTH IN 

+3 HEIGHT IN 



Algorithm 

The DRBOXS subroutine contains two smaller subroutines called DRBWH and 
DRBWV. DRBWH draws a horizontal line, while DRBWV draws a vertical line. 
Both are not in the standard subroutine form because CALLs to the subroutine 
would not be relocatable. 

DRBWH is entered from DRBOXS with HL containing the memory location 
that represents the leftmost character position for the horizontal line to be 
drawn, with B containing the width in character positions, and with C contain- 
ing a flag for the return point. 

DRBWV is entered from DRBOXS with HL containing the memory location 
that represents the topmost character position for the vertical line to be drawn, 
with B containing the height in character positions, and with C containing a 
flag for the return point. 

In DRBOXS proper, there are four steps to draw the box. A call is made to 
DRBWH to draw the top line, a call is made to DRBWV to draw the right-hand 
line, a call is made to DRBWV to draw the left-hand line, and finally, a call is 
made to DRBWH to draw the bottom line. 

First, the starting line position (y) is picked up and multiplied by 64 (DRB010). 
The result is added to the character position (x) and to the start of the screen 



OUTPUT 



RAM+0 



H 



4- 



UNCHANGED 



" X 



■ Y 



CP 



CP 



PARAM+0 



^1 



UNCHANGED 



UNCHANGED 



UNCHANGED 



UNCHANGED 



82 



location {3C00H). This result is the memory location representing the corner 
point. It is saved in the stack, 

A call is then made to DRBWH to draw the top line. The return is made to 
DRB020. 

HL now points to one location greater than the end of the line. HL is decre- 
mented and a call is made to DRBWV to draw the right-hand side. The return is 
made to DRB030. 

The original corner location is now picked up from the stack, and a call is made 
to DRBWV to draw the left-hand line. The return is made to DRB040. 

HL now points to one line greater than the bottom of the line. HL is decre- 
mented, and a call is made to DRBWH to draw the bottom line. The return is 
made to DRB050. 



Sample Calling Sequence 








1 


32 


+ 


1 


1 


8 


4 




1 


12 


■i 


3 


.1 


4 


-t 


4 









NAME OF SUBROUTINE? DRBOXS 
HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 
PARAMETER BLOCK VALUES? 

UPPER LEFTX,Y = 32,8 

WIDTH = 12 
HEIGHT = 4 



MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 38888 
SUBROUTINE EXECUTED AT 38888 

OUTPUT: 
HL= 40000 
PARAM+ 



input: 
HL= 40000 
PARAM+ 
PARAM+ 1 

PARAM+ 2 

PARAM+ 3 



32 
8 
12 

4 



PARAM+ 1 

PARAM+ 2 
PARAM+ 3 



32 
8 

12 
4 



■UNCHANGED 



Notes 

1. If the parameters cause the rectangle to exceed screen limits, the system 
may be "bombed." 

2. The top and bottom lines are wider than the side lines in the rectangle. 



Program Listing 



7F00 



00100 

00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 



ORG 7F00H 5 0522 

;#*«■*#*##»****■»##*#**##«**«■******«###***#****#*»*♦*«#*»«* 
I* DRAW BOX. DRAWS BOX OF GIVEN WIDTH AND HEIGHT AT * 
5# SPECIFIED LOCATION. ♦ 
INPUT: HL=> PARAMETER BLOCK * 
PARAH+0=UPPER LEFT CORNER CHAR POS (X) * 
PARAH+1=UPPER LEFT CORNER LINE # (Y> * 
PARAH+2=WIDTH IN CHARACTER POSITIONS * 
PARAM+3=HEI6HT IN CHARACTER POSITIONS * 
OUTPUT: BOX DRAWN ON SCREEN * 
;«#**********«*#*♦*******************#****************♦** 

; 



; » 

;* 

;* 

5* 
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7F00 


C5 


00220 


DRBOXS 


PUSH 


BC 


;SAVE REGISTERS 


7F01 


D5 


00230 




PUSH 


DE 




7F02 


E5 


00240 




PUSH 


HL 




7F03 


DDES 


00250 




PUSH 


IX 






CD7F0A 


00260 




CALL 


0A7FH 


;***GET PB LOC'N*** 


7F08 


F5 








r1i_ 


= xoAKfccTcro xri t v 
5 1 KMnlbrfciK 1 U 1 A 


7F09 


nnF 1 






PAP 


T V 
I A 




7F0B 


DD6F0) 


00290 








7 at I Y 1 N L 1 fVfcb 


7F0E 


2600 












/r I m 




MB J 1 13 




LD 


B» 6 


; ITERATION COUNT 


7F12 


29 


00320 


DRB010 


ADD 


HLsHL 


;FIND LINE DISPLACEMENT 


7F13 


10FD 


00330 




DJNZ 


DRB010 


ILINE # * 64 


7F15 


DD4E00 


00340 




LD 


C, (IX+0) 


;6ET CHAR POSITION 


7Fi8 


0600 


00350 




LD 


B»0 


;NOW IN BC 


7F1A 


09 


00360 




ADD 


HLjBC 


!FIND DISPL FROM START 


7F1B 


01003C 


00370 




LD 


BC,3C00H 


; START OF SCREEN 


7F1E 


09 


00380 




ADD 


HLsBC 


!FIND ACTUAL HEMORY LOC'N 


/r IF 


E5 


00390 




PUSH 


HL 


;SAVE LOC'N 


7F20 


DD4602 


00400 




LD 


B» ( IX+2) 


;SET WIDTH IN CHAR POSNS 


/r ZJi 


0tH0 


00410 




LD 


C» 


!FLAS FOR RETURN 


7F25 


181 C 


00420 




JR 


DRBWH 


;DRAW TOP LINE 


7F27 


2B 


00430 


DRB020 


DEC 


HL 


; POINT TO END OF LINE 


7F28 


DD46B3 


00440 




LD 


B» ( IX+3) 


;SET HEIGHT IN CHAR POSNS 


7F2B 


1821 


00450 




JR 


DRBWV 


;DRAW RIGHT SIDE 


7F2D 


El 


00460 


DRB030 


POP 


HL 


IGET UPPER LEFT CORNER LOC 


7F2E 


DD46B3 


00470 




LD 


B> (IX+3) 


?SET HEIGHT IN CHAR POSNS 


7F3I 


0E01 


00480 




LD 


Ci 1 


;FLAG FOR RETURN 


7F33 


1819 


00490 




JR 


DRBWV 


IDRAW LEFT SIDE 


7F35 


87 


00500 


DRB04B 


OR 


A 


1 CLEAR CARRY 


7F36 


ED52 


005 10 




SBC 


HL J DE 


•POINT TO END OF LINE 


7F3S 


DD4602 


00520 




LD 


B5 (IX+2) 


fGET WIDTH IN CHAR POSNS 


7F3B 


1806 


00530 




JR 


DRBWH 


;DRAW BOTTOH LINE 


7F3D 


DDEl 


00540 


DRB050 


POP 


IX 


1 RESTORE REGISTERS 


7F3F 


El 


00550 




POP 


HL 




7F40 


Dl 


00560 




POP 


DE 




7F41 


CI 


00570 




POP 


BC 




7F42 


C9 


00580 




RET 




! RETURN TO CALLING PROG 


7F43 


36BF 


00590 


DRBWH 


LD 


< HL ) » 0BFH 


5 SET CHAR POSN TO ALL ON 


tr 43 


2J 


BkJobIo 




T h!^ 

I NL 


LJf 

HL 


jHvKli iNLKtntNl 


7F46 


10FB 


00610 




DJNZ 


DRBWH 


jLOOP TIL LINE DONE 


7F48 


CB41 


00620 




BIT 


05 C 


5 TEST FLAG 


7F4A 


2808 


00630 




JR 


Z,DRB020 


;RTN POINT 1 


7F4C 


ISEF 


00640 




JR 


DRB050 


!RTN POINT 2 


7F4E 


1 14000 


00650 


DRBWV 


LD 


DEs40H 


INCREMENT FOR VERTICAL LN 


7F51 


36BF 


00660 


DRBWVl 


LD 


( HL ) . 0BFH 


;SET CHAR POSN TO ALL ON 


7F53 


19 


00670 




ADD 


HL^DE 


; POINT TO NEXT POSITION 


7F54 


10FB 


00680 




DJNZ 


DRBWVl 


!LOOP 'TIL LINE DONE 


7F56 


CB41 


00690 




BIT 


0, C 


;TEST FLAG 


7F58 


28D3 


00700 




JR 


Z » DRB030 


;RTN POINT 1 


7F5A 


18D9 


00710 




JR 


DRB040 


;RTN POINT 2 


0000 




00720 




END 







00000 TOTAL ERRORS 



DRBOXS DECIHAL VALUES 

197> 21 3 » 229 f 2215 229 > 205 > 127 5 10» 229 » 221. 

2255 221 > 1105 Is 385 05 65 65 41 5 16» 

2535 221 5 78? 05 65 05 95 1 5 0s 605 

9i 2295 221 5 705 25 145 05 245 2B5 435 

2215 705 35 245 335 225s 221) 705 35 145 

1 5 24s 255 1835 237s 82s 2215 70s 2s 24s 

65 221 5 225s 2255 2095 193» 2015 545 191 s 35 i 

I65 251s 2035 655 405 2195 245 2395 175 645 

05 545 191 5 25s 16s 251 5 2035 655 405 21 Is 

24 

CHKSUH= 128 



DRHLNE: DRAW HORIZONTAL LINE 



Configuration 
Model 1, Model ill. 

Description 

DRHLNE draws a horizontal line on the screen. The line may be any length and 
may start on any character position of any screen line. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
byte of the parameter block contains the starting x character position of the 
line, from to 63. The leftmost character position of the line must be specified. 
The next byte of the parameter block contains the starting line number y of the 
line, from to 15. The next byte of the parameter block contains the number of 
character positions in the line length. This will be a maximum of 64 for a line 
that starts at the left edge of the screen. 

On output, the parameter block contents are unchanged. The horizontal line 
has been drawn. 



INPUT 



H 



POINTER TO PARAM+0 



OUTPUT 

H . L 



4- 



UNCHANGED 



PARAM+0 
+ 1 
+2 



X, 0-63 



Y, 0-15 



LENGTH 



PARAM+0 

+ 1 
+2 

:^ 



UNCHANGED 



UNCHANGED 



UNCHANGED 



Algorithm 

The DRHLNE subroutine performs the move by computing the starting address 
of the line in video display memory and by controlling the operation with the 
count of the number of character positions involved. 

First, the line number value is picked up from the parameter block. This is 
multiplied by 64 to find the number of bytes (displacement) from the start of 
video display memory. This value is added to 3C00H to find the actual video 
memory address for the line start. This value is added to the character position 
of the start from the parameter block to find the starting position in video 
display memory. 

A byte of OBFH is stored for each character position in the line. The current 
video display memory position in HL is then incremented to find the next 
location of the line. A count of the number of character positions involved is 
then decremented and a jump is made to DRH020 if the count is not zero. 
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Sample Calling Sequence 



NAME OF SUBROUTINE? DRHLNE 
HL VALUE? 50000 

PARAMETER BLOCK LOCATION? 50000 
PARAMETER BLOCK VALUES? 

- X, Y = 0, 15 

LENGTH = 64 

MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 45000 
SUBROUTINE EXECUTED AT 45000 



+ 





1 





+ 


1 


1 


15 


+ 




1 


64 


+ 


3 









INPUT: 
HL= 50000 

PARAM+ 
PARAM+ 1 15 
PARAM+ 2 64 



OUTPUT: 
HL= 50000 
PARAM+ 
PARAM+ 1 15 

PARAM+ 2 64 



UNCHANGED 



NAME OF SUBROUTINE? 



Notes 

1. The program may "bomb" the system if the length of travel goes beyond 
video display memory boundaries. 

2. The program may "bomb" the system if the x and y coordinates are im- 
properly specified. 

3. Change location 7F22H to draw a narrower line. 



Program Listing 



7F00 



7F00 
7F01 
7F02 
7F04 
7F07 
7F0S 
7F0A 
7F0D 
7F0F 
7F11 
7F12 
7F14 
7F17 
7F19 
7F1A 
7F1D 
7F1E 
7F21 
7F23 



C5 
E5 

DDES 

CD7F0A 

E5 

DDEl 

DD6E01 

2600 

0606 

29 

10FD 

DD4E00 

0600 

09 

01003C 
09 

DD4602 

36BF 

23 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 

00380 
00390 



ORG 7F00H ; 0522 

; *###«##**##***»*#*♦**«*#»****###•)(•******»***#*#*«#♦»#♦#* ♦ 

5* DRAW HORIZONTAL LINE. DRAWS A HORIZONTAL LINE FROM * 
5* GIVEN LINE (Y), CHARACTER POSITION <X). * 
input: HL=> PARAMETER BLOCK * 
;* PARAM+0=CHAR POSITION (X), 0-63 * 

!« PARAM+1=LINE NUMBER (Y) , 0-15 * 

;* PARAM+2=LENGTH OF LINE IN CHAR POSITIONS * 

;* output: LINE DRAWN * 
;*#*«»*«*#«*#**#******#»*#*#**#******«■******»*#*■****#**** 



DRHLNE 



DRH010 



DRH0.20 



PUSH 


BC 


PUSH 


HL 


PUSH 


IX 


CALL 


0A7FH 


PUSH 


HL 


POP 


IX 


LD 


Ls ( IX+1 ) 


LD 


H» 


LD 


B»6 


ADD 


HLiHL 


DJNZ 


DRH010 


LD 


C, < IX+0) 


LD 


B,0 


ADD 


HLjBC 


LD 


BC5 3C00H 


ADD 


HL>BC 


LD 


B, (IX+2) 


LD 


(HL),0BFH 


INC 


HL 



;SAVE REGISTERS 



;«*#GET PB LOC N«** 

; TRANSFER TO IX 

;GET LINE NUMBER 

;NOW IN HL 

; ITERATION COUNT 

;multiply line # * 64 

; LOOP TILL DONE 
;GET CHAR POS'N (X) 
3 NOW IN BC 

; DISPLACEMENT FROM START 
; START OF SCREEN 
;FIND ACTUAL START LOC'N 
;GET NUMBER OF CHAR POS'NS 

;ALL ON FOR CHAR POSITION 
SBUMP POINTER 
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7F24 10FB 
7F26 DDEl 
7F28 El 
7F29 CI 
7F2A C9 
0000 



00400 

00410 
00420 
00430 
00440 
00450 



DJNZ 

POP 
POP 
POP 
RET 
END 



DRH020 
IX 
HL 
BC 



SLOOP 'TIL DONE 
; RESTORE REGISTERS 



; RETURN TO CALLING PROG 



00000 TOTAL ERRORS 



DRHLNE DECIMAL VALUES 



197> 229, 2: 

22l! 110! 1' 

22 1 5 78 ? 05 

2215 70, 2? 

225! 193 I 201 



l! 229! 

38! 0! 
6! 0! 9l 

54! 191 , 



205! 127! 
6i 6, 41 ! 

1 1 01 60! 

35 1 16, ; 



10! 

16, 

9, 
:5l, 



229! 
253, 



Z21. 



221, 225! 



CHKSUM= 10 



DRVLNE: DRAW VERTICAL LINE 



Configuration 
Model I, Model 111. 



Description 

DRVLNE draws a vertical line on the screen. The line may be any length and 
may start on any character position of any screen line. 



input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
byte of the parameter block contains the starting x character position of the 
line, from to 63 . The topmost character position of the line must be specified. 
The next byte of the parameter block contains the starting line number y of the 
line, from to 15. The next byte of the parameter block contains the number of 
character positions in the line length. This will be a maximum of 16 for a line 
that starts at the top of the screen. 

On output, the parameter block contents are unchanged. The vertical line has 
been drawn. 



INPUT 



OUTPUT 



H 



POINTER TO PARAM+0 
1 



H 



UNCHANGED 



PARAM+0 

+ 1 
+2 



X, 0-63 



Y. 0-15 



LENGTH 



PARAM+0 
+ 1 
+2 



UNCHANGED 



UNCHANGED 



UNCHANGED 
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Algorithm 

The DRVLNE subroutine performs the move by computing the starting address 
of the line in video display memory and by controlling the operation with the 
count of the number of character positions involved. 

First, the line number value is picked up from the parameter block. This is 
multiplied by 64 to find the number of bytes (displacement) from the start of 
video display memory. This value is added to a character position of the start 
from the parameter block to find the displacement from the start of video dis- 
play memory. This value is added to 3C00H to find the actual video memory 
address for the line start. 

A byte of OBFH is stored for each character position in the line. The current 
video display memory position in HL is then incremented by 40H to find the 
next location of the line. A count of the number of character positions involved 
is then decremented and a jump is made to DRV020 if the count is not zero. 



Sample Calling Sequence 



NAME OF SUBROUTINE? DRVLNE 
HL VALUE? 50000 

PARAMETER BLOCK LOCATION? 50000 
PARAMETER BLOCK VALUES? 



1 

1 1 

2 1 

3 



B 
9 
5 




hX,Y = 8,9 
LENGTH = 5 



MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 40100 
SUBROUTINE EXECUTED AT 40100 
INPUT: OUTPUT: 
HL= 50000 HL= 50000 

PARAM+ 8 PARAM+ B' 

PARAM+ 1 9 PARAM+ 1 9 h UNCHANGED 

PARAM+ 2 5 PARAM+ 2 5 



NAME OF SUBROUTINE? 



Notes 

1. The program may "bomb" the system if the length of travel goes beyond 
video display memory boundaries. 

2. The program may "bomb" the system if the x and y coordinates are im- 
properly specified. 



Program Listing 



7F00 00100 ORG 7F00H 5 0522 

001 1 I ******************************************************** 
00120 ;* DRAW VERTICAL LINE. DRAWS A VERTICAL LINE FROM ♦ 
00130 ;* GIVEN LINE <Y) , CHARACTER POSITION (X). * 
00140 ;* INPUT: HL=> PARAMETER BLOCK * 
00150 PARAM+0=CHAR POSITION <X), 0-63 * 

00160 ;* PARAM+1=LINE NUMBER (Y) , 0-15 » 

00170 ;* PARAM+2=LENSTH OF LINE IN CHAR POSITIONS * 

00180 ?« 0UTPUT:LINE DRAWN * 
00190 ! ******************************************************** 
00200 ; 
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/ r kJkj 


uD 


1 Mi 


UKVL-NC. 


rUon 






1/3 






PI ICU 


i/C. 


7F02 


E5 


00230 




PUSH 


HL 


7F03 


DDE5 


00240 




PUSH 


IX 


7F05 


CD7F0A 


00250 




CALL 


0A7FH 


7F08 


E5 


00260 




PUSH 


HL 


7F09 


DDEl 


00270 




POP 


I X 




UU6fc.«3l 








L? < I X+1 ) 












rf 9 «3 


7F10 




00300 




LD 


B» 6 


7F12 


29 


0031 


r)Rk/0i 


ADD 


HI , Ml 


7F1 




00320 




DJNZ 


i-/ fx V Kj J. KJ 


7F15 


DD4E00 


00330 




LD 


C? ( I X + ) 


7Fi 8 


0600 


00340 




LD 





-/CIA 


VJ7 






Ann 

rMJtJ 


wi - Pr 


TC 1 D 


fax «3(fcJ>3t/ 






L.1J 




/r 1 h 


WV 






Ann 


ML. 9 t»U 


7F1F 


DD460^ 


00380 




LD 




7F22 


1 1 4000 


00390 




LD 


r\r- K rail 

Dh 9 40H 




"7 A DC" 






! n 


\ ML. ^ 9 Soorri 


ft^f 


1 V 






Ann 

fMJU 


Lii „ np 


7 pop 


i fur t-' 






n.TM7 


ur\ V uj.iL.iLj 


f r ji_H 








PAP 


I X 


7F2C 


El 


(71 fa A A 17} 




PAP 


Ml 
ns_ 


7F2D 


Dl 


00450 




POP 


DE 


7F2E 


CI 


00460 




POP 


BC 


7F2F 


C9 


00470 




RET 




0000 




00480 




END 




00000 TOTAL 


ERRORS 









;SAVE REGISTERS 



;#**eET PB LOC'N*** 
; TRANSFER TO IX 

;GET LINE NUMBER 

; NOW IN HL 

; ITERATION COUNT 

; MULT I PLY LINE # * 64 

;L00P TILL DONE 
;6ET CHAR POS'N (X) 
; NOW IN BC 

; DISPLACEMENT FROM START 

; START OF SCREEN 

; F I ND ACTUAL START LOC'N 

;6ET NUMBER OF CHAR POSNS 

;LINE DISPLACEMENT 

;ALL ON FOR CHAR POSITION 
;FIND NEXT POSITION 
;L00P 'TIL DONE 

; RESTORE REGISTERS 



; RETURN TO CALLING PROG 



DRVLNE DECIMAL VALUES 



DSECHT: DIVIDE 16 BY 8 



1975 213> 229, 221? 229> 205, 127, 10, 229, 221. 

225, 221, 110, 1, 38, 0, 6, 6, 41, 16, 

253, 221, 78, 0, 6, 0, 9, 1, 0, 60, 

9, 221, 70, 2, 17, 64, 0, 54, 191, 25, 

16, 251, 221, 225, 225, 209, 193, 201 



CHKSUM= 247 



System Configuration 

Model I, Model III, Model II Stand Alone. 



Description 

DSEGHT divides a 16-bit binary number by an 8-bit binary number. The divide 
is an "unsigned" divide, where both numbers are considered to be absolute 
numbers without sign. Both the quotient and remainder are returned. 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the 16-bit dividend. The next byte of 
the parameter block contains an 8-bit divisor. The next two bytes of the param- 
eter block are reserved for the 16-bit quotient. The next byte is reserved for the 
8-bit remainder. 
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On output, PARA+ 3, +4 hold the 1 6-bit quotient and PARA+ 5 holds the 8-bit 
remainder. The contents of the rest of the parameter block remain unchanged. 



INPUT 

H L 



-f- 



POINTER TO PARAM+0 



OUTPUT 
H L 



UNCHANGED 



PARAM+0 


1 6-BIT 


+ 1 


DIVIDEND 


+2 


8-BIT DIVISOR 


+3 


RESERVED 




r FOR 


+4 


QUOTIENT 


+5 


RES. FOR REMAIN. 



PARAM+0 

+ 1 
+2 
+3 
+4 
+5 



UNCHANGED - - 



UNCHANGED 



1 6-BIT 
QUOTIENT 



8-BIT REMAINDER 



Algorithm 

The DSEGHT subroutine performs the divide by a "restoring" type of bit-by-bit 
binary divide. The dividend is put into the HL register pair. The divisor is put 
into the C register. The A register is cleared. For each of 16 iterations in the 
divide, the HL register pair is shifted left one bit position into the A register. A 
subtract of the divisor (C) from the "residue" in A is then done. If the result is 
positive, a one bit is put into the least significant bit of HL. If the result is 
negative, a zero bit is put into the least significant bit of HL, and the previous 
value in A is restored by an add. 

Quotient bits fill up the HL register from the right as the residue is shifted out 
into the A register toward the left. At the end of 16 iterations, the HL register 
pair contains the 16 quotient bits and the A register contains an 8-bit remainder. 

The code at DSE010 is the main loop in DSEGHT which shifts HL left by an 
"ADD HL,HL" and "ADC A,A." The Isb of HL is preset with a quotient bit of 
one, and the subtract of C from A is done. If the result is positive, a loop to 
DSE010 is done for the next iteration. If the result is negative, C is added back to 
A, and the Isb of HL is reset. The B register holds the iteration count. 



Sample Calling Sequence 



NAME OF SUBROUTINE? DSEGHT 

HL VALUE? 42200 

PARAMETER BLOCK LOCATION? 42200 
PARAMETER BLOCK VALUES? 



+ 







60000 


DIVIDEND 


+ 




1 


111 


DIVISOR 


+ 


3 









+ 


5 


1 







+ 


6 











MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 43000 
SUBROUTINE EXECUTED AT 43000 
INPUT: OUTPUT: 
HL= 42200 HL= 42200 
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PARAM+ 





96 


PARAM+ 





96 




PARAM+ 


1 


234 


PARAM+ 


1 


234 


-UNCHANGED 


PARAM+ 


2 


1 1 1 


PARAM+ 




111 




PARAM+ 
PARAH+ 


3 
4 






PARAM+ 
PARAH+ 


3 
4 


28 

2 _ 


-QUOTIENT = 540 


PARAM+ 


5 





PARAM+ 


5 


60 


REMAINDER = 60 



NAME OF SUBROUTINE? 



Notes 

1. Maximum dividend is 65,535. Maximum divisor is 255. The maximum 
quotient will be 65,535 and the maximum remainder will be 255. 

2. Division by causes an invalid result of OFFFFH. 

Program Listing 



7h00 




00100 




ORG 


7F00H 


5 0522 






00110 


;♦*****#*#*****##*»****«#*****#****************«♦♦****«** 






00120 


;* DIVIDE 16 


BY 8. DIVIDES 


A 16-BIT UNSIGNED NUMBER BY * 






00130 


AN 


8-BIT 


UNSIGNED NUMBER 


TO GIVE A QUOTIENT AND RE- * 






00140 


;» MAINDER. 




♦ 






00150 


;* 


INPUT! 


HL=> PARAMETER 


BLOCK * 






00160 






PARAM+01 +1=16- 


BIT DIVIDEND * 






00170 


;* 




PARAM+2=8-BIT 


DIVISOR * 






00180 


;* 




PARAM+3)+4=RESERVED FOR QUOTIENT « 






00190 


;# 




PARAM+5=RESERVED FOR REMAINDER * 






00200 


;* 


OUTPUT 


:PARAM+3,+4 HOLDS 16-BIT QUOTIENT * 






00210 


;# 




PARAM+5 HOLDS 


8-BIT REMAINDER * 






00220 








00230 


7 








7F00 


F5 


00240 


DSESHT 


PUSH 


AF 


;SAVE REGISTERS 


7F01 


C5 


00250 




PUSH 


BC 




7F02 


E5 


00260 




PUSH 


HL 




7F03 


DDE5 


00270 




PUSH 


IX 




7F05 


CD7F0A 


00280 




CALL. 


0A7FH 


;#*«GET PB LOC'N*** 


7F08 


E5 


00290 




PUSH 


HL 


; TRANSFER TO IX 


7F09 


DDEl 


00300 




POP 


IX 




7F0B 


0610 


00310 




LD 


Bi 16 


; ITERATION COUNT 


7F0D 


DD4E02 


00320 




LD 


C, ( IX+2) 


;L0AD DIVISOR 


7F10 


DD6E00 


00330 




LD 


L, ( IX+0) 


;PUT DIVIDEND IN HL 


7F13 


DD6601 


00340 




LD 


H, ( IX+1 ) 




7F16 


AF 


00350 




XOR 


A 


; CLEAR EXTENSION REG 


7F17 


29 


00360 


DSE010 


ADD 


HL » HL 


; SHIFT HL LEFT 1 BIT 


7F18 


8F 


00370 




ADC 


A? A 


; SHIFT A LEFT W/CARRY 


7F19 


2C 


00380 




INC 


L 


;SET Q BIT TO 1 


7F1A 


91 


00390 




SUB 


C 


;SUBTRACT D'SOR FROM D'END 


m% 


1^02 


mm 




^Bd 


NC},DSE020 
A, C 


||gg|.^,l^|UBTRACT WENT 


7F1E 


2D 


00420 




DEC 


L 


; RESET Q BIT 


7F1F 


10F6 


00430 


DSE020 


djnz 


DSE010 


;L00P FOR 16 ITERATIONS 


7F21 


DD7503 


00440 




LD 


( IX+3) ,L 


; STORE QUOTIENT 


7F24 


DD7404 


00450 




LD 


( IX+4) jH 




7F27 


DD7705 


00460 




LD 


(IX+5) jA 


; STORE REMAINDER 


7F2A 


DDEl 


00470 




POP 


IX 


; RESTORE REGISTERS 


7F2C 


El 


00480 




POP 


HL 




7F2D 


CI 


00490 




POP 


BC 




7F2E 


Fl 


00500 




POP 


AF 




7F2F 


C9 


00510 




RET 




; RETURN TO CALLING PROG 


0000 




00520 




END 






00000 TOTAL 


ERRORS 
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DSEGHT DECIMAL VALUES 



245> 197, 229? 221? 229? 205? 127> 10i 229? 221? 
2255 65 16; 221 ! 7Bi 2i 221 s 110? 0i 221; 
102) I1 175? 41? 143? 44? 145? 48? 2? 129? 
45? 16? 246? 221? 117? 3? 221? 116? 4? 221? 
119? 5? 221? 225? 225? 193? 241? 201 



CHKSUM= 83 



DSSIXT: DIVIDE 16 BY 16 



System Configuration 

Model I, Model III, Model II Stand Alone. 



Description 

DSSIXT divides a 16-bit binary number by a 16-bit binary number. The divide is 
an "unsigned" divide, where both numbers are considered to be absolute 
numbers without sign. Both the quotient and remainder are returned. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the 16-bit dividend. The next two 
bytes of the parameter block contain a 16-bit divisor. The next two bytes of the 
parameter block are reserved for the 16-blt quotient. The next two bytes are 
reserved for the 16-bit remainder. 

On output, PARA -f 4, -f-5 hold the 16-bit quotient and PARA -I- 6, +7 holds the 
8-bit remainder. The contents of the rest of the parameter block remain un- 
changed. 



INPUT 



OUTPUT 



H 



POINTER TO PARAM+0 



+ 



UNCHANGED 



PARAM-l-0 


1 6-BIT 


PARAM-t-0 


-hi 


DIVIDEND 


+ 1 


+2 


1 6-BIT , 


+2 


+3 


DIVISOR 




+4 


RESERVED 


+4 




FOR 




-1-5 


QUOTIENT 


-1-5 


-1-6 


RESERVED 


-1-6 




FOR 




+7 


REMAINDER 


+7 



-- UNCHANGED 



UNCHANGED 



16-BIT 
QUOTIENT 



1 6-BIT 
REMAINDER 



92 



Algorithm 



The DSEGHT subroutine performs the divide by a "restoring" type of bit-by-bit 
binary divide. The dividend is put into the DE register pair. The divisor is put 
into the BC register pair. The HL register is cleared. For each of 16 iterations in 
the divide, the DE register pair is shifted left one bit position into the HL register 
pair. A subtract of the divisor (BC) from the "residue" in HL is then done. If the 
result is positive, a one bit is put into the least significant bit of DE. If the result 
is negative, a zero bit is put into the least significant bit of DE, and the previous 
value in HL is restored by an add. 

Quotient bits fill up the DE register from the right as the residue is shifted out 
into the HL register pair toward the left. At the end of 16 iterations, the DE 
register pair contains the 16 quotient bits and the HL register contains a 16-bit 
remainder. 

The code at DSS020 is the main loop in DSSIXT which shifts DE left by an 
exchange of DE and HL, an "ADD HL,HL," and an exchange back. HL is 
shifted by an "ADC HL,HL," merging any carry from DE. The Isb of DE is preset 
with a quotient bit of one, and the subtract of BC from HL is done. If the result is 
positive, a loop is made back to DSS020 for the next iteration, if the result is 
negative, BC is added back to HL, and the Isb of DE is reset. The A register 
holds the iteration count. 



Sample Calling Sequence 



NAHE OF SUBROUTINE? DSSIXT 
HL VALUE? 45000 

PARAMETER BLOCK LOCATION? 45000 
PARAMETER BLOCK VALUES? 










10000 


DIVIDEND 










DIVISOR 


-t 


4 









■i 


6 











8 











Hi/MORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 50000 



SUBROUTINE 


EXECUTED AT 


50 


000 


INPUT-. 




output: 






HL= 45000 




HL= 45000 




PARAM+ 


16 


PARAM+ 





16 


PARAM+ 1 


39 


PARAH+- 


1 


39 


PARAM+ 2 


231 


PARAM+ 


2 


231 


PARAM+ 3 


3 


PARAH+ 


3 


3 


PARAM+ 4 





PARAM+ 


4 


10 


PARAM+ 5 





PARAM+ 


5 





PARAM+ 6 





PARAM+ 


6 


10 


PARAM+ 7 





PARAM+ 


7 






-UNCHANGED 



-QUOTIENT = 10 



■REMAINDER = 



NAHE OF subroutine? 



Notes 

1. Maximum dividend is 65,535. Maximum divisor is 65,535. The maximum 
quotient will be 65,535 and the maximum remainder will be 65,535. 

2. Division by causes an invalid result of OFFFFH. 
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Program Listing 



7F00 




00100 


ORG 


7F00H 


; 0522 ■ 






001 10 


; ♦*■!(■*•♦#»***»♦**##■»»*#*#*#»♦#«»**««*»*♦****#»***«*»***#»** 






001 20 


;* DIVIDE 16 


BY 16. DIVIDES 


A 16-BIT UNSIGNED NUMBER BY » 








;* A 16-BIT UNSIGNED NUMBER 


TO GIVE A QUOTIENT AND RE- * ■ 






Hint i Atyi 


;* MAINDER. 




♦ I 








INPUT: 


HL=> PARAMETER 


BLOCK * 








;* 


PARAM+0, +1=16- 


BIT DIVIDEND * 






001 /0 


;* 


PARAM+2, +3=16- 


BIT DIVISOR * 1 






00180 


!« 


PARAM+4, +5= RESERVED FOR QUOTIENT # g 






00190 


1* 


PARAM+6, +7=RESERVED FOR REMAINDER * 






00200 


;# OUTPUT :PARAM+4. +5 HOLDS 16-BIT QUOTIENT * 






00210 


;« 


PARAM+6,+7 HOLDS 16-BIT REMAINDER * ■ 






00220 


; ««#♦♦*♦##*#*####«#«#»»»»»»*##*#»##«*♦****#*♦»***»*****»* ■ 






00230 


? 






7F00 


F5 


00240 


DSSIXT PUSH 


AF 


;SAVE REGISTERS 


7F01 


C5 


00250 


PUSH 


BC 




7F02 


D5 


00260 


PUSH 


DE 




7F03 


E5 


00270 


PUSH 


HL 




7F04 


DDES 


00280 


PUSH 


IX 




7F06 


CD7F0A 


00290 


CALL 


0A7FH 


;###GET PB LOC'N«#* ■ 


7F09 


E5 


00300 


PUSH 


HL 


; TRANSFER TO IX 1 


7F0A 


DDEl 


00310 


POP 


IX 




7F0C 


DD5E00 


00320 


LD 


E, (IX+0) 


;PUT DIVIDEND INTO DE 


7F0F 


DD3601 


00330 


LD 


D, ( IX+1 ) 




7F12 


DD4E02 


00340 


LD 


C, (IX+2) 


;PUT DIVISOR INTO BC 1 


7F15 


DD4603 


00350 


LD 


B, ( IX+3) 




7F18 


210000 


00360 


LD 


HL, 


;ZERO HL 


7F1B 


3E10 


00370 


LD 


A, 16 


; ITERATION COUNT 


7F1D 


EB 


00380 


DSS020 EX 


DE,HL 


;DE TO HL ■ 


7F1E 


29 


00390 


ADD 


HL,HL 


; SHIFT LEFT 1 


7F1F 


EB 


00400 


EX 


DE.HL 


;DE BACK 


7F20 


ED6A 


00410 


ADC 


HL,HL 


; SHIFT LEFT PLUS CARRY 


7F22 


13 


00420 


INC 


DE 


;SET Q BIT TO 1 ■ 


7F23 


B7 


00430 


OR 


A 


; CLEAR CARRY 1 


7F24 


ED42 


00440 


SBC 


HL,BC 


;SUB DIVISOR FROM DIVIDEND ■ 


7F26 


3002 


00450 


JR 


NC,DSS030 


;G0 IF SUBTRACT OK 


7F28 


IB 


00460 


DEC 


DE 


; RESET 6! BIT « 


7F29 


09 


00470 


ADD 


HL,BC 


1 RESTORE ■ 


7F2A 


3D 


00480 


DSS030 DEC 


A 


; DECREMENT ITERATION CNT | 


7F2B 


20F0 


00490 


JR 


NZ,DSS020 


;L00P for 16 ITERATIONS 


7F2D 


DD7304 


00500 


LD 


( IX+4) ,E 


; STORE QUOTIENT 


'ILL' "IfJt 


Du f ZaD 


003 llu 


LD 


( IX+5) ,D 




7F33 


DD7506 


00520 


LD 


(IX+6),L 


; STORE REMAINDER | 




Dl)/407 


003 J0 


LD 


( IX+7) ,H 




7F39 


DDEl 


00540 


POP 


IX 


; RESTORE REGISTERS 


7F3B 


El 


00550 


POP 


HL 




7F3C 


Dl 


00560 


POP 


DE 




7F3D 


CI 


00570 


POP 


BC 




7F3E 


Fl 


00580 


POP 


AF 




7F3F 


C9 




RET 




; RETURN TO CALLING PROS ■ 


0000 




00600 


END 






00000 TOTAL 


ERRORS 














DSSIXT DECIMAL VALUES 










245, 197, 


213, 229, 221 , 


229, 205 ■! 127, 10, 229, 








221, 225, 


221 , 94, 0, 221, 86, 1, 221 , 78, _ 



2, 221 , 70, 3, 33, 0, 0, 62, 16, 235, 
41, 235, 237, 106, 19, 183, 237, 66, 48, 2, 
27, 9, 61, 32, 240, 221, 1 15, 4, 221, 114, 
5, 221 , 117, 6, 221, 116, 7, 221 , 225, 225, 
209, 193, 241 , 201 

CHKSUM= 149 
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EXCLOR: EXCLUSIVE OR 



System Configuration 

Model I, Model III, Model II Stand Alone. 

Description 

EXCLOR performs an exclusive OR on two 8-bit operands. 



Input/Output Parameters 

On input, the H register contains operand number one and the L register con- 
tains operand number two. On output, L contains the 8-bit result. 



INPUT 



OPERAND 1 I 



OPERAND 2 



OUTPUT 



RESULT 



Algorithm 

The EXCLOR subroutine performs the exclusive OR by the XOR instruction and 
returns the result in the L register with H set to zero. 



Sample Calling Sequence 



NAME OF SUBROUTINE? EXCLOR 

HL VALUE? 13141 H = 51 = 0011001 1; L = 85 = 01010101 

PARAMETER BLOCK LOCATION? 

MEMORY BLOCK 1 LOCATION? 

MOVE SUBROUTINE TO? 41111 

SUBROUTINE EXECUTED AT 41111 

INPUT: OUTPUT: 

HL= 13141 HL- 102 RESULT: 00110011 XOR 01010101 =01100110 



NAME OF SUBROUTINE? 



Notes 

1. BASIC contains no exclusive OR command. 



Program Listing 



7F00 



7F00 
7F01 



F5 

CD7F0A 



00100 ORG 7F00H 5 0522 

001 10 ;*#*#«##»####***»##*#♦**#**«*«#«*«#»***■»*##****«********# 

00120 ;# EXCLUSIVE OR. PERFORMS EXCLUSIVE OR OF TWO EIGHT-BIT « 

00130 ;* OPERANDS. * 

00140 ;* INPUT: HL=OPERAND 1 <H) ! OPERAND 2 (L) * 

00150 5* OUTPUT : HL=OPERAND 1 XOR OPERAND 2 # 

00160 ; ******************************************************** 

00170 ; 

00180 EXCLOR PUSH AF ; SAVE REGISTERS 

00190 CALL 0A7FH 5*#*GET OPERANDS*** 
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7F04 


7C 


00200 


1 n 


A , U 


? A PF PA Kin 1 


7F05 


AD 


002 1 


XOR 


L 




7F06 


6F 


00220 


L D 


L. ) A 


; RF'^lil T Wnu TfJ 1 

7 IS!—. wwt — I IM^_'SrV J. f "4 


7F07 


2600 


00230 


LD 


H,0 


;now in hl 


7F09 


Fl 


00240 


POP 


AF 


; RESTORE REGISTER 


7F0A 


C39A0A 


00250 


JP 


0A9AH 


;***RETURN ARGUMENT*** 


7F0D 


C9 


00260 


RET 




; NON-BASIC RETURN 


0000 




00270 


END 







00000 TOTAL ERRORS 



EXCLOR DECIMAL VALUES 



245? 205! 12?! 10, 124, 173, 111, 38, 0, 241, 
195, 154, 10, 201 

CHKSUM= 42 



FILLME: FILL MEMORY 



System Configuration 

Model I, Model III, Model II Stand Alone. 



Description 

FILLME fills a block of memory with a given 8-bit value. Up to 65,535 bytes of 
memory can be filled. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
byte of the parameter block contains the fill value to be used. The next two 
bytes of the parameter block define the starting address for the block of memory 
to be filled in standard Z-80 address format, least significant byte followed by 
most significant byte. The next two bytes of the parameter block contain the 
number of bytes in the block to be filled. 

On output, the block of memory has been filled; the parameter block remains 
unchanged. 



INPUT 
H L 



POINTER TO PARAM+0 



+ 



OUTPUT 



_ 1 

UNCHANGED 



+ 



PARAM+0 

+ 1 
+2 
+3 
+4 



FILL CHARACTER 



POINTER 
TO MEM 1+0 



# BYTES TO 
FILL 



PARAM+0 
+ 1 
+2 



> 



+3 

+4 



UNCHANGED 



UNCHANGED -- 



-- UNCHANGED 



% 



MEM 1+0 
+ 1 
+2 
+3 
+4 
+5 
+6 



AREA 
TO BE 
FILLED 



MEM 1+0 
+ 1 
+2 
+3 
+4 
+5 
+6 



AREA 
FILLED 
WITH 
FILL CHAR- 
ACTER 



Algorithm 

The FILLME subroutine first picks up the number of bytes in the block and puts 
it into the BC register pair. Next, the starting address is put into the HL register 
pair. The A register is then loaded with the fill character. 

The loop at F1L010 fills each byte in the memory block. The count in BC is 
decremented and the pointer in HL is adjusted to point to the next memory 
byte. 



Sample Calling Sequence 



NAME OF SUBROUTINE? FILLME 
HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 
PARAMETER BLOCK VALUES? 



+ 1 
+ 1 2 
+ 32 
+ 5 
MEMORY 
MEMORY 




2 
4 
6 
8 



65 "A" FILL CHARACTER 
50000 AREA TO FILL 
5 #0F BYTES 



BLOCK 1 LOCATION? 50000 
BLOCK 1 VALUES? 




MEMORY 










BLOCK 



INITIALIZE FILL AREA FOR EXAMPLE 



2 LOCATION? 
MOVE SUBROUTINE TO? 38000 
SUBROUTINE EXECUTED AT 38000 



INPUT: 






OUTPUT 






HL= 40000 




HL= 40000 




PARAM+ 





65 


PARAM+ 





65 


PARAM+ 


1 


80 


PARAM+ 


1 


80 


PARAM+ 


2 


195 


PARAM+ 


2 


195 


PARAM+ 


3 


5 


PARAM+ 


3 


5 


PARAM+ 


4 





PARAM+ 


4 





MEMB1+ 








ME MB I + 





65 


MEMB1+ 


1 





MEMB1+ 


1 


65 


MEMB1+ 


2 





MEMB1+ 


2 


65 - 


MEMB1+ 


3 





MEMB1+ 


3 


65 


MEMB1+ 


4 





MEMB 1 + 


4 


65 


MEMB1+ 


5 





MEMB1+ 


5 





MEMB1+ 


6 





MEMB1+ 


6 





MEMB1+ 


7 





MEMB1+ 


7 






"A"S FILLED 



NAME OF SUBROUTINE? 
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Notes 



1. The FILLME subroutine can be used to "zero" memory or to initialize the 
video display. 



Program Listing 



7F00 00100 ORG 7F00H ;052i 

00 110 ? «##**#****♦■»*«■*«*«****»♦**#**♦**#*##«♦***#«**#»«**«*■**** 



00120 !* FILL MEMORY. FILLS A BLOCK OF MEMORY WITH A GIVEN * 

00130 ;* VALUE. * 

00140 ;* INPUT! HL=> PARAMETER BLOCK * 

00150 5* PARAM+0=FILL CHARACTER * 

00160 ;* PARAM+l!+2=FILL STARTING ADDRESS * 

00170 5* PARAM+35+4=# OF BYTES TO FILL? 1 TO 65535. * 

00180 0=65536 * 

00190 ;» OUTPUTsBLOCK FILLED WITH GIVEN CHARACTER * 



00200 I *****»****##*###***#*♦#»#**♦##*#«###*#♦###*#####«*»##♦#«■ 







00210 ! 








7F00 


F5 


00220 FILLME 


PUSH 


AF 


5SAVE REGISTERS 


7F01 


C5 


00230 


PUSH 


BC 




7F02 


D5 


00240 


PUSH 


DE 




7F03 


E5 


00250 


PUSH 


HL 




7F04 


DDE5 


00260 


PUSH 


IX 




7F06 


CD7F0A 


00270 


CALL 


0A7FH 


l***GET PB LOC'N*** 


7F09 


E5 


00280 


PUSH 


riL. 


nXDAMOCCD Ul Tf"i TV 

7 1 KANbrcK HL SU IX 


7F0A 


DDEl 


00290 


POP 


IX 




7F0C 


DD4604 


00300 


LD 


B5 ( IX+4) 


IPUT # OF BYTES IN BC 


7F0F 


DD4E03 


00310 


LD 


C5 < IX+3) 




7F12 


DD6602 


00320 


LD 


H> (IX+2) 


;PUT START IN HL 


7F15 


DD6E01 


00330 


LD 


L5 ( IX+1 ) 




7F18 


DD7E00 


00340 


LD 


A5 (IX+0) 


IPUT FILL CHARACTER IN A 


7F1B 


77 


00350 FIL010 


LD 


( HL ) 5 A 


;FILL BYTE 


7F1C 


23 


00360 


INC 


HL 


; BUMP POINTER TO NEXT 


7F1D 


0B 


00370 


DEC 


BC 


; DECREMENT COUNT 


7F1E 


57 


00380 


LD 


D5 A 


;SAVE A 


7F1F 


78 


00390 


LD 


A5B 


3 TEST BC 


7F20 


Bl 


00400 


OR 


C 




7F21 


7A 


00410 


LD 


A5D 


; RESTORE A 


7F22 


20F7 


00420 


JR 


NZ5FIL010 


;go if done 


7F24 


DDEl 


00430 


POP 


IX 


; RESTORE REGISTERS 


7F26 


El 


00440 


POP 


HL 




7F27 


Dl 


00450 


POP 


DE 




7F28 


CI 


00460 


POP 


BC 




7F29 


Fl 


00470 


POP 


AF 




7F2A 


C9 


00480 


RET 




; RETURN TO CALLING PROG 


0000 




00490 


END 






00000 TOTAL 


ERRORS 












FILLHE DECIMAL 


VALUES 








245 5 197 


5 2135 


2295 221 5 2295 


205» 1275 105 229? 






221 ! 225 


5 2215 


70! '45 221 1 78 


5 35 2215 1025 






25 2215 


1105 1 


) 22 1 5 1265 05 


1195 355 1 1 5 






875 1205 


1775 


122. 325 2475 2 


21 5 225 5 225 5 2095 






1935 241 


5 201 







CHKSUM= 17 
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FKBTST: FAST KEYBOARD TEST 

System Configuration 
Model I, Model 111. 

Description 

FKBTST is a "fast" keyboard test that tests for any key press and for five special 
keyboard keys, CLEAR, UP ARROW, DOWN ARROW, LEFT ARROW, and 
RIGHT ARROW. FKBTST returns a zero if no key is being pressed, a negative 
value if one of the special keys is being pressed, or a positive value if another 
key is being pressed. It can be used for games control or any other application 
where fast keyboard scanning is required. 



Input/Output Parameters 

No input parameters are required. On output, HI is returned with a zero for no 
keypress, -1 for CLEAR, -2 for UP ARROW, -3 for DOWN ARROW, -4 for 
LEFT ARROW, and -5 for RIGHT ARROW, or +1 through + 127 for other key 
combinations. 



INPUT 
H L 

1 

NONE 



OUTPUT 



H 



KEY CODE OR 



Algorithm 

The row address for the special keys is 3840H. This row is first read by an "LD 
A,(3840H)." The contents of A are then compared with the column bit configu- 
ration for the special keys (2, 8, 16, 32, and 64), and if there is a match the 
corresponding negative code is returned in HL. If there is no match, a "LD 
HL,(387FH)" is done. This reads all column bits into L. H is then cleared. If 
there was no key press, HL will now be set to zero. 



Sample Calling Sequence 



NAME OF SUBROUTINE? FKBTST 
HL VALUE? 

PARAMETER BLOCK LOCATION? 
MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 45000 
SUBROUTINE EXECUTED AT 45000 
INPUT: OUTPUT: 

HL= HL= 65533 -3 = DOWN ARROW 



NAME OF SUBROUTINE? 



Notes 

1. Detection of a special key will take about 60 microseconds, average time. 
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2. FKBTST may be used to detect multiple key presses, such as "JKL" or 
"123." 

3. The SHIFT key is not tested. 



Program Listing 



7F00 




00100 


ORG 




7F00H 


; 0522 






00110 








00120 


;* FAST KEYBOARD TEST. TESTS 


FOR ANY KEYPRESS AND FOR 






00130 


FIVE SPECIAL 


KEYS. 








00140 


;« INPUT: 


NONE 








00150 


OUTPUT :HL 


=0 FOR NO KEY 


PRESS, -1 FOR CLEAR. -2 FOR 






001 60 


;* 


UP 


ARROW? -3 FOR 


DOWN ARROW, -4 FOR LEFT 






00170 


5* 


ARROWt AND -5 FOR RIGHT ARROW? 1-127 FOR 






00180 


;# 


OTHER KEY COMBINATIONS. 






00190 








00200 


; 








7F00 


F5 


00210 


FKBTST PUSH 




AF 


ISAVE REGISTER 


7F01 


2iFFFF 


00220 


LD 




HLs -1 


; CLEAR CODE 


7F04 


3A4038 


00230 


LD 




A> (3840H) 


;READ ROW 


7F07 


FE02 


00240 


CP 




2 


; CLEAR? 


7F09 


2819 


00250 


JR 




Z,FKB0I0 


;S0 IF YES 


7F0B 


2B 


00260 


DEC 




HL 


;UP ARROW CODE 


7F0C 


FE08 


00270 


CP 




8 


;UP ARROW? 


7F0E 


2814 


00280 


JR 




Z.FKB010 


?eO IF YES 


7F10 


2B 


00290 


DEC 




HL 


;DOWN ARROW CODE 


7F11 


FE10 


00300 


CP 




16 


IDOWN ARROW? 


7F13 


280F 


00310 


JR 




2,FKB010 


IGO IF YES 


7F15 


2B 


00320 


DEC 




HL 


?LEFT ARROW CODE 


7F16 


FE20 


00330 


CP 




32 


;LEFT ARROW? 


7F18 


280A 


00340 


JR 




Z,FKB010 


;G0 IF YES 


7F1A 


2B 


00350 


DEC 




HL 


; RIGHT ARROW CODE 


7F1B 


FE40 


00360 


CP 




64 


; RIGHT ARROW? 


7F1D 


2805 


00370 


JR 




Z5FKB010 


?60 IF YES 


7F1F 


2A7F3S 


00380 


LD 




HL, (387FH) 


;READ ALL COLUMNS 


7F22 


2600 


00390 


LD 




H. 


; RESULT IN HL 


7F24 


Fl 


00400 


FKB010 POP 




AF 


; RESTORE REGISTER 


7F25 


C39A0A 


00410 


JP 




0A9AH 


;*##RETURN ARGUMENT*** 


7F28 


C9 


00420 


RET 






? NON-BASIC RETURN 


0000 




00430 


END 









00000 TOTAL ERRORS 



FKBTST DECIMAL VALUES 



245, 33, 255, 255, 58, 64, 56, 254, 2, 40, 
25, 43, 254, B, 40, 20, 43, 254, 16, 40, 
15, 43, 254, 32, 40, 10, 43, 254, 64, 40, 
5, 42, 127, 56, 38, 0, 241, 195, 154, 10, 
2w:l. 



CHKSUM= 29 



FSETGR: FAST GRAPHICS SET/RESET 



System Configuration 
Model I, Model III. 
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Description 



FSETGR is a subroutine that sets or resets a given screen pixel. It is designed to 
perform screen actions rapidly and uses a table lookup structure to avoid the 
time-consuming processing present in other graphics subroutines. Any of the 
6144 graphics pixels, arranged in 128 columns by 64 rows, may be set or reset. 
Previous to using FSETGR, the screen area to be utilized must have been 
cleared with graphics characters (80H). 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block are the starting address of the FSETGR subrou- 
tine, in standard Z-80 address format, least significant byte followed by most 
significant byte. The next byte of the parameter block is the x coordinate, to 
127. The next byte of the parameter block is the y coordinate, to 47. The next 
byte of the parameter block is a set/reset flag. This byte is if the pixel is to be 
set, or if the pixel is to be reset. 

On output, the pixel is set or reset, and the parameter block remains un- 
changed. 



INPUT 



OUTPUT 



H 



POINTER TO PARAM+0 



UNCHANGED 



PARAM+0 

+ 1 
+2 
+3 
+4 



START 
ADDRESS OF 
FSETGR 



X, 0-127 



Y, 0-47 



0=SET, 1 -RESET 



PARAM+0 

+ 1 
+2 
+3 
+4 



UNCHANGED -- 



UNCHANGED 



UNCHANGED 



UNCHANGED 



Algoritlim 

The FSETGR subroutine uses a table of 48 entries to implement fast graphics. 
Each entry in the table corresponds to one of the 48 rows of graphics and gives 
the actual memory address that contains the pixel and the mask to be used in 
processing the pixel. The first twelve bits of an entry represent the memory 
address when four zeroes are added to the twelve bits. The fifth entry of 3C44H, 
for example, represents 3C40H, the start of the fifth graphics row in memory. 
The last four bits represent the graphics mask to be used in processing, as we'll 
explain. 

FSETGR first gets the y value from the parameter block. This y value is multi- 
plied by 2 and added to the base address of FSETGR and TABLE.A displace- 
ment; the result points to the TABLEA entry. The entry address is put into HL and 
lY. Next, the four least significant bits of HL are reset to mask out the graphics 
mask. HL now points to the start of the line containing the graphics byte. 

Next, the x address is picked up from the parameter block. The x address is 
divided by two and added to the HL register. The HL register now points to the 
actual byte in memory containing the pixel to be processed. 
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Next, the A register is loaded with the least significant byte from the TABLEA 
table. This contains the graphics mask. The mask value is ANDed with 1 FH to 
get only the mask, if X is even, the mask is left unchanged, as it represents the 
left-hand bit; if X is odd, the mask is shifted left for the right-hand bit. 

The byte containing the pixel is now loaded into B. If a set is to be done, the 
mask in A is ORed with B and the result stored to set the pixel. If a reset is to 
be done, the complement of the mask in A is ANDed with B and the result 
stored to reset the pixel. 



Sample Calling Sequence 



NAME OF SUBROUTINE? FSETGR 
HL. VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 
PARAMETER BLOCK VALUES? 



37000 

64 

24 







START OF FSETGR 
X, Y = 64, 24 
SET 



MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 37000 
SUBROUTINE EXECUTED AT 37000 



INPUT: 
HL= 40000 
PARAM+ 
PARAM+ 1 
PARAM+ 2 
PARAM+ 3 
PARAM-i- 4 



136 

144 

64 

24 





OUTPUT: 
HL= 40000 
PARAM+ 
PARAM+ 1 
PARAM+ 2 
PARAM+ 3 
PARAM+ 4 



136 

144 

64 

24 





- UNCHANGED 



NAME OF SUBROUTINE? 



Notes 

1. This subroutine can set/reset about 4000 points per second. 



Program Listing 



7F00 



7F00 
7F01 
7F02 
7F03 
7F04 
7F06 
7F08 
7F0B 



F5 
C5 
D5 
E5 

DDES 
FDE5 
CD7F0A 
E5 



00100 
00110 
00120 
00130 
00140 
00150 
00 1 60 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
002B0 



ORG 7F00H ; 0522 

; #***»*##**##***#»*#»*#**#«*«#**######»#*»******#*#*##*** 
;* FAST GRAPHICS SET/RESET. SETS/RESETS A GIVEN PIXEL. * 
;* INPUT :HL=:> PARAMETER BLOCK * 
;* PARAM+0f+l=START ADDRESS OF FSETGR * 

;* PARAM+2=X? TO 127 * 

;# PARAM+3=-Y» TO 47 * 

;» PARAM+4=SET/RESET FLAG. 0=SET> 1=RESET * 

;* OUTPUT: PIXEL SET OR RESET * 
; #****#*****#****»*«###«**«#«**■*#*#*#*******#«■***»«■*»*#*» 



FSETGR 



PUSH 


AF 


PUSH 


BC 


PUSH 


DE 


PUSH 


HL 


PUSH 


IX 


PUSH 


lY 


CALL 


0A7FH 


PUSH 


HI,.. 



;SAVE REGISTERS 



;***GET PB LOC'N*** 
1 TRANSFER TO IX 
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7F0C: 


DDE 1 


00290 




POP 


IX 




7F0E 


1600 


00300 




LD 


D,0 


;ZERO D 


7F10 


DD5E03 


00310 




LD 


E, ( IX+3) 


;Y TO DE 


7F13 


CB23 


00320 




SL.A 


E 


;2*Y FOR TABLE LOOKUP 


7F15 


DD6E00 


00330 




LD 


Li (I X+0) 


;GET BASE ADDRESS 


7F.1.8 


DD6601 


00340 




LD 


H> ( IX+1 ) 




7F1E?. 


19 


00350 




ADD 


HI... 5 DE 


;ADD 2*Y 


7F1C 


0.1.5700 


00360 




LD 


BC, TABLEA 


; TABLE DISPLACEMENT 


7F 1 F 


09 


00370 




ADD 


HLj BC 


; POINT TO TABLE START 


7F20 


E5 


00380 




PUSH 


HL 


; TRANSFER TO lY 


7F21 


FDE 1 


00390 




POP 


I Y 




7F23 


FD7E00 


00400 




LD 


A> ( IY+0) 


;(5ET LINE START 


7F26 


E6E0 


004 1 




AND 


0E0H 


;MASK OUT MASKf 


7F28 


6F 


00420 




LD 


L, A 


;LS BYTE NOW IN L 


7F29 


FD660J 


00430 




L„D 


H» ( IY+1 ) 




7F2C 


DD5E02 


00440 




L.D 


E, ( IX+2) 


;GET X 


7F2F 


1600 


00450 




LD 


T), 


;NOW IN DE 


7F31 


CB3B 


00460 




SRL 


E 


;now X/2 


7F33 


19 


00470 




ADD 


HL. , DE 


; POINT TO GRAPHICS BYTE 


7F34 


FD7E00 


00480 




LD 


A, ( IY+0) 


■ GET BIT 


7F37 


E61F 


00490 




AND 


IFH 


;GET HASK VALUE 


7F39 


DDCB0246 


00500 




BIT 


0) < IX+2) 


5 TEST LSB OF X FOR ODD/EVEN 


7F3D 


2802 


00510 




JF-^ 


Z ! FSE020 


;G0 IF LEFT 


7F3F 


CB27 


00520 




SLA 


A 


; RIGHT COLUMN 


7F41 


46 


00530 


FSE020 


LD 


B, (HL) 


;GET GRAPHICS BYTE 


7F42 


DDCB0446 


00540 




BIT 


05 ( IX+4) 


;TEST SET/RESET 


7F46 


2804 


00550 




JR 


Z , FSE030 


;60 IF SET 


7F4S 


2F 


00560 




CPL 




; INVERT MASK 


7F49 


A0 


00570 




AND 


B 


; RESET BIT 


7F4A 


1801 


00580 




JR 


FSE040 


; CONTINUE 


7F4C 


B0 


00590 


FSE030 


OR 


B 


;SET BIT 


7F4D 


77 


00600 


FSE040 


LD 


(HL) > A 


; STORE GRAPHICS BYTt 


7F4E 


FDEl 


00610 




POP 


lY 


; RESTORE REGISTERS 


7F50 


DDEl 


00620 




POP 


IX 




7F52 


El 


00630 




POP 


HL 




7F53 


Dl 


00640 




POP 


DE 




71 "^'j 4 


CI 


00650 

Suj «J w/ 




POP 


BC 




7F55 


Fl 


00660 




POP 


AF 




7i 56 


C9 


00670 




RET 




; RETURN TO CAl I TNG PROG 


0057 




00680 


TABLEA 


EQU 


$-FSETSR 


;DISP OF TABLE FROM START 


7\ 57 


013C 


00690 




DEFW 


3C00H+1 




7F59 


043C 


00700 




DEFW 


3C00H+4 




7F5B 


103C 


00710 




DEFW 


3C00H+16 




7F5D 


413C 


00720 




DEFW 


3C40H+1 




7F5F 


443C 


00730 




DEFW 


3C40H+4 




7F61 


503C 


00740 




DEFW 


3C40H+16 




7F63 


S13C 


00750 




DEFW 


3C80H+1 




7F65 


843 C 


00760 




DEFW 


3C80H+4 




7F67 


903 C 


00770 




DEFW 


3C80H+16 




7F69 


C13C 


00780 




DEFW 


3CC0H+1 




7F6B 


C43C 


00790 




DEFW 


3CC0H+4 




7F6D 


D03C 


00800 




DEFW 


3CC0H+16 




7F6F 


01 3D 


00810 




DEFW 


3D00H+ 1 




7F71 


04 3D 


00820 




DEFW 


3D00H+4 




7F73 


1 03D 


00830 




DEFW 


3D00H+ 1 6 




7F75 


413D 


00840 




DEFW 


3D40H+1 




7F77 


4 4 3D 


00850 




DEFW 


3D40H+4 




7F79 


503D 


00860 




DEFW 


3D40H+ 1 6 




7F7B 


81 3D 


00870 




DEFW 


3D80H+ 1 




7F7D 


S43D 


00880 




DEFW 


3DS0H+4 




7F7F 


903D 


00890 




DEFW 


3D80H+16 




7F8.1 


C13D 


00900 




DEFW 


3DC0H+1 




7FB3 


C43D 


130910 




DEFW 


3DC0H+4 




7F85 


D03D 


00920 




DEFW 


3DC0H+16 




7F87 


013E 


00930 




DEFW 


3E00H+ 1 




7FB9 


043E 


00940 




DEFW 


3E00H+4 




7F8B 


1 03E 


00950 




DEFW 


3E00H+16 




7FSD 


413E 


00960 




DEFW 


3E40H+1 
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7F8F 


443E 


00970 


DEFW 


3E40H+4 


7F91 


503E 


00980 


DEFW 


3E40H+16 


7F93 


81 3E 


00990 


DEFW 


3EB0H+1 


7F95 


843E 


01000 


DEFW 


3E80H+4 


7F97 


903E 


01010 


DEFW 


3EB0H+16 


7F99 


C13E 


01020 


DEFW 


3EC0H+1 


7F9B 


C43E 


01030 


DEFW 


3EC0H+4 


7F9D 


D03E 


01040 


DEFW 


3EC0H+16 


7F9F 


01 3F 


01050 


DEFW 


3F00H+ 1 


7FA1 


043F 


01060 


DEFW 


3F00H+4 


7FA3 


1 03F 


01070 


DEFW 


3F00H+16 


7FA5 


413F 


01080 


DEFW 


3F40H+1 


7FA7 


443F 


01090 


DEFW 


3F40H+4 


7FA9 


503F 


01 100 


DEFW 


3F40H+16 


7 FAB 


813F 


01 110 


DEFW 


3F80H+ 1 


7FAD 


S43F 


01 120 


DEFW 


3F80H+4 


7FAF 


903F 


01 130 


DEFW 


3F80H+16 


7FB1 


C13F 


01 140 


DEFW 


3FC0H+1 


7FB3 


C43F 


01 150 


DEFW 


3FC0H+4 


7FB5 


D03F 


01 160 


DEFW 


3FC0H+16 


0000 




01 170 


END 




00000 


TOTAL 


ERRORS 







FSETGR DECIMAL VALUES 



245, 197, 213, 229, 221, 229, 253, 229, 205, 127, 

10, 229, Z21, 225, 22, 0, 221, 94, 3, 203, 

35, 221, 110, 0, 221, 102, 1, 25, 1, 87, 

0, 9, 229, 253, 225, 253, 126, 0, 230, 224, 

111, 253, 10k.', 1, 221, 94, 2, 22, 0, 203, 

59, 25, 253, 126, 0, 230, 31, 221, 203, 2, 
70, 40, k', 203, 39, 70, 221, 203, 4, 70, 
40, 4, 47, 160, 24, 1, 176, 119, 253, 225, 
221, 225, 225, 209, 193, 241, 201, 1, 60, 4, 

60, 16, 60, 65, 60, 68, 60, 80, 60, 129, 

60, 132, 60, 144, 60, 193, 60, 196, 60, 208, 

60, 1, 61, 4, 61, 16, 61, 65, 61, 68, 

61, 80, 61, 129, 61, 132, 61, 144, 61, 193, 

61, 196, 61, 208, 61, 1, 62, 4, 62, 16, 

62, 65, 62, 68, 62, 80, 62, 129, 62, 132, 

62, 144, 62, 193, 62, 196, 62, 208, 62, 1, 

63, 4, 63, 16, 63, 65, 63, 68, 63, 80, 

63, 129, 63, 132, 63, 144, 63, 193, 63, 196, 
63, 208, 63 
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INBLCK: INSERT BLOCK 



System Configuration 

Model I, Model III, Model II Stand Alone. 



Description 

INBLCK inserts a block in the middle of a larger block of memory. The block is 
inserted by moving down all bytes after the insertion point, as shown below. 
This subroutine could be used for inserting a block of text, for example, and 
moving the remaining text below the inserted block. Both the "larger block" 
and "insert block" may be any size, up to the limits of memory. 
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Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the address of the larger block in 
standard Z-80 address format, least significant byte followed by most significant 
byte. The next two bytes are the address of the insertion block in Z-80 address 
format. The next two bytes are the address of the insertion point in Z-80 address 
format. The next two bytes of the parameter block contain the number of bytes 
in the larger block; the next two bytes contain the number of bytes in the 
deletion block. Both are in standard Z-80 format. 



On output, the contents of the parameter block remain unchanged. The inser- 
tion block has been inserted by a move of the insertion block into the insertion 
point. 



INPUT 

H L 



POINTER TO PARAM+0 
1 



PARAM+0 

+ 1 
+2 
+3 
+4 
+5 
+6 
+7 
+8 
+9 



POINTER TO 
LARGE BLOCK 
START (MEM 1+0) 



POINTER TO 
INSERT BLOCK 
(MEM2+0) 



INSERT 
ADDRESS IN 
LARGE BLOCK 



# BYTES 
IN 

LARGE BLOCK 



# BYTES 
IN 

INSERT BLOCK 



PARAWl+0 
+ 1 
+2 
+3 
+4 
+5 
+6 
+7 
+8 
+9 



-- UNCHANGED -- 



-- UNCHANGED -- 



OUTPU T 
H L 



UNCHANGED 



UNCHANGED 



-- UNCHANGED -- 



-- UNCHANGED -- 



MEM 1+0 

+ 1 
+2 
+3 
+4 
+5 
+6 

MEM2+0 
+ 1 
+2 
+3 
+4 
+5 
+6 



■LARGE- 
BLOCK 



MEM 1+0 



INSERT 
BLOCK 



MEM2+0 

+ 1 
+2 
+3 
+4 
+5 
+6 



"LARGE- 
BLOCK 
WITH 
INSERT 
BLOCK 

INSERTED 



/ INSERT / 
/ / BLOCK 



UNCHANGED 
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Algorithm 



The INBLCK subroutine performs the insertion by "opening up" space in the 
larger block for the bytes of the insertion block and then moving the insertion 
block into the space created. 

Space is created by doing a block move downward of the area in the larger 
block from the insertion point to the end. This must be an LDDR to avoid 
replication of data. The LDDR is followed by an LDIR to insert the insertion 
block. 

The LDDR must be set up with HL containing the address of the last byte of the 
larger block, DE containing the address of the last byte of the larger block plus 
the number of bytes in the insertion block, and BC containing the number of 
bytes in the larger block from the insertion point on. The HL address is found by 
adding the start of the larger block plus the number of bytes in the larger block 
minus one. This is saved in the stack for the LDDR. The BC count is found by 
subtracting the insert address from the end address and adding one. This is also 
saved for the LDDR. The DE address is found by adding the number of bytes in 
the insertion block to the end address. The move is then done by an LDDR. 

The LDIR for the insert is then done after setting up DE with the address of the 
insertion point, HL with the address of the insertion block, and BC with the 
number of bytes of the insertion block. 



Sample Calling Sequence 



NAME OF SUBROUTINE? INBLCK 
HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 
PARAMETER BLOCK VALUES? 







50000 
55000 
50002 

5 
3 



MEMORY BLOCK 1 LOCATION? 
MEMORY BLOCK 1 VALUES? 



4 
6 
8 
10 







LARGE BLOCK START 
INSERT BLOCK START 
INSERT POINT 
5 BYTES IN LARGE BLOCK 
3 BYTES IN INSERT BLOCK 



50000 



1 
1 
1 
1 
1 
1 
1 
1 
1 






1 

3 
4 
5 
6 
7 





LARGE BLOCK 



INITIALIZE LARGE BLOCK FOR EXAMPLE 



MEMORY BLOCK 
MEMORY BLOCK 



LOCATION' 55000 
VALUES? 

INSERT BLOCK 



MOVE SUBROUTINE TO? 37000 
SUBROUTINE EXECUTED AT 37000 
INPUTS OUTPUT: 
HL= 40000 HL= 40000 



+ 





1 


255 


+ 


1 


1 


254 


+ 




1 


253 


+ 


3 
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PARAM+ 





80 


OA O A ^ 

rAKArf-r 


m 




DA D AM J- 


1 
I 


1 0"=^ 
i 7 3 


PA PAM-j~ 








jL 




PAPAM-4- 






PARAM4- 






PAPAM4- 


3 


214 


PARAM4- 


4 


82 


PARAM4- 


4 


82 


PARAM-^ 


5 


195 


PARAM+ 


5 


195 


PARAM-4- 


6 


5 




6 


5 




y 
I 


fCf 


PARAM4" 


■7 






Q 
O 


w 


PARAM-f- 


S 


3 




(3 

t 




PARAM-f 


9 




i Id lO X ~ 


(71 




MPMR 1 -f- 
I ilZ.1 lO JL ~ 






MITMQ 1 J. 


1 

Jl 


■f 
J. 




1 


1 
4. 


MPMR 1 4- 

1 fC-l ID X ' 


2 


2 


1 tC-.l It? X ' 


2 


255 




~t 










MCTMO 1 a. 


A 
*f 


A 


NPMP 1 -4~ 


A 




ricrlo 1 ^ 








Z) 




Mirivtl3 1 -A. 


O 


O 


Pitino i ^ 




"I 


MEMBi-^ 


7 


7 


MEMB1+ 


7 


4 


MEMB1+ 


8 





MEMB1+ 


8 





MEMB2+ 





255 


HEMB2+ 





255 


MEMB2-*- 


1 


254 


HEHB2+ 


1 


254 


MEMB2-f 


2 


253 


MEHB2+ 


2 


253 



• UNCHANGED 



■ORIGINAL DATA 
■INSERTED DATA 

■ORIGINAL DATA 



8 BYTES 

OF NEW BLOCK 



UNCHANGED INSERT BLOCK 



NAME OF SUBROUTINE? 



Notes 

1. The maximum number of bytes in either block may be 65,535. 

2. The term "larger block" is somewhat misleading. The larger block may be 
smaller than the insertion block! 

3. The insertion point must be within the larger block. 



Program Listing 



7F00 00100 ORG 7F00H 5 0520 

001 10 ; ******************************************** 

0012f0 ;# INSERT BLOCK, INSERTS BLOCK IN MIDDLE OF LARGER BLOCK* 

00130 ?■* INPUT: HL=>PARAMETER BLOCK * 

00140 ;» PARAM+0,+1 --START ADDRESS OF LARGER BLOCK * 

00150 ;# PARAM-i-2,-+^3-START ADDRESS OF INSERT BLOCK * 

00160 ;# PARAM+4, ■+5= INSERT ADDRESS IN LARGER BLOCK * 

00170 •* PARAM+65 +7=# OF BYTES IN LARGER BLOCK * 

00180 ;* PARAM-*-S5+9=# OF BYTES IN INSERT BLOCK * 

00190 ;* OUTPUTS INSERT BLOCK INSERTED IN LARGER BLOCK AND * 

00200 FOLLOWING BYTES MOVED DOWN * 

002 1 ; ********************************************************'' 

00220 ; 



7F00 


F5 


00230 INBLCK 


PUSH 


AF 


; SAVE REGISTERS 


7F01 


C5 


00240 


PUSH 


BC 




7F02 


D5 


00250 


PUSH 


DE 




7F03 


E5 


00260 


PUSH 


HL 




7F04 


DDES 


00270 


PUSH 


IX 




7F06 


CD7F0A 


00280 


CALL 


0A7FH 


;*»*GET PB ADDRESS-K-x^* 


7F09 


E5 


00290 


PUSH 


HL 


; TRANSFER TO IX 


7F0A 


DDEl 


00300 


POP 


IX 




7F0C 


DD6E00 


00310 


LD 


L, ( IX-+0) 


; START OF LARGE BLOCK 


7F0F 


DD6601 


00320 


LD 


H, ( IX+1 ) 


;# OF BYTES IN LARGE 


7F12 


DD4E06 


00330 


LD 


C, ( IX+6) 


7F15 


DD4607 


00340 


LD 


B, ( lX+7) 




7F18 


09 


00350 


ADD 


HL 5 BC 


;END OF LARGE BLK+i 


7F19 


2B 


00360 


DEC 


HL 




7F1A 


E5 


00370 


PUSH 


HL 


; SAVE 



BLK 
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7F1B 


DD4E04 


00380 


LD 


C, ( IX+4) 


- INSERT ADDRESS 


7F1E 


DD4605 


00390 


LD 


85 ( IX+5) 




7F21 


B7 


00400 


OR 


A 


; CLEAR CARRY 


7F22 


ED42 


004 1 


SBC 


HL?BC 


?FIND # TO MOVE 


W3.^ 


s? 


K.'li..'"*Tv.?lt,' 






t O \..* fA C; r-\ L.' iJ f\ t.. Z> 






(TiraA ACT 


PI lOlJ 


MI 
r1L_ 


7 O H V C it 1 I l\.'VC. 








\ X\ 
t.U 


! / T Y j-O \ 


jff Ur CT'T 1 b.b IN iNbb.KI t>L.r\ 






rhfTi /i £„ rh 
1(3 0(0 




LJ „ / T Y-l-Q ^ 
H 9 \ i A / 




7F2D 


1 9 




PilJl) 


HL 9 Uh 


" cr T hfTS rvtrOT t mat t am 


7F2E 


EB 


00480 


EX 


DE? HL 




1\- 2F 


CI 


00490 


F'O P 


BC 






fcUC'CJ 




L-jUUfA 




"Mf'lUP dvtP*:t 


"7 r" "7 






i Hi 
I..U 


fc: 9 \ i A +*f / 


- TKIC-POT AnnDPQQ 
7 i NbC-K 1 Hi/UrCc.bo 








1 n 


n » / T Y-J-iS ^ 

t/ ? \ 1 A T^_J / 




~7 C." "7 O 




f» c: "2 (Ti 


I..U 


L. 5 ^ i A T" jfl / 




7F3B 


DD6603 


005413 


LO 


H? ( X A T- J / 




7F3E 


DD4h08 


00550 


LD 


C? ( 1 X+8; 


; # Ur BY ( hb I u riUvfc:. 


7F41 


DD4609 


00560 


LD 


rj /TV J o \ 




7F44 


EDB0 


00570 


LDI R 




; MuvE INSERT BLK TU INS 


7F46 


DDEl 


00580 


POP 


IX 


;RtbiOHfc. KhtilbitKb 




1 1 




DAD 


Lii 
rlL. 




7F49 


Dl 


00600 


POP 


DE 




7F4A 


CI 


00610 


POP 


BC 




7F4B 


Fl 


00620 


POP 


AF 




7F4C 


C9 


00630 


RET 




5 RETURN TO CALLING PROS 


0000 




00640 


END 







00000 TOTAL ERRORS 



INBLCK DECIMAL VALUES 



245! 197? 213? 229? 221 » 229> 205? 127? 10? 229? 
221 > 225? 221? 110? 0? 221? 102? 1? 221? 78? 
6? 221? 70? 7? 9? 43? 229? 221? 78? 4? 
221? 70? 5? 183? 237? 66? 35? 209? 229? 221? 
110? 8? 221? 102? 9? 25? 235? 193? 237? 184? 
221? 94? 4? 221? 86? 5? 221? 110? 2? 221? 
102? 3? 221? 78? 8? 221? 70? 9? 237? 176? 
221? 225? 225? 209? 193? 241? 201 



CHKSUM= 66 



METEST: MEMORY TEST 



System Configuration 

Model I, Model ill, Model I! Stand Alone. 



Description 

This subroutine tests a given block of memory by a "PUSH/POP" method. One 
pass is made through the test with each byte of the block being tested twice, 
except for the starting and ending addresses of the block, which are tested only 
once. Pseudo-random data is used to test all locations. 

The memory test is considered successful if pseudo-random data can be writ- 
ten into every location and then retrieved successfully. If data is retrieved and it 
is not identical to the pattern stored, the test immediately returns with an error 
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flag set, a record of the failing location, the proper test pattern, and the errone- 
ous result. 

METEST should be called repetitively to exercise and test memory; the more 
iterations performed, the greater the confidence that memory is working. 



Input/Output Parameters 



On input, the HL register pair points to a parameter block on entry to METEST. 
The first two bytes of the parameter block contain the starting address of the 
block to be tested. The next two bytes contain the ending address of the block. 
The ending address must be at least one location greater than the starting ad- 
dress. 

The next four bytes are reserved for the test results. 

The last two bytes contain a "seed" value for the memory test data. This seed 
value must be nonzero. 



On output, PARAM-i-4, 4-5 contain the address of the failing location or the 
address of the failing location minus one if the test failed at any point. It con- 
tains a zero if the test was a success. PARAM-f 6, +7 and PARAM-l-8, +9 
contain additional failure parameters. 



INPUT 



OUTPUT 



H 



POINTER TO PARAM+0 



UNCHANGED 



PARAM+0 
+ 1 
+2 
+3 
+4 
+5 
+ 6 
+7 
+8 
+9 



STARTING 

ADDRESS 
OF BLOCK 



ENDING 
ADDRESS 
OF BLOCK 



RESERVED 
FOR SUCCESS 
FLAG 



RESERVED 
FOR "IS" 
RESULT 



"SEED" 
VALUE 



PARAM+0 

+ 1 
+2 
+3 
+4 
+5 



UNCHANGED -- 



UNCHANGED 



0-SUCCESS. 
FUL, FAILING 
ADDRESS IF NOT 



"IS" VALUE 
ON FAILURE 



"SHOULD BE ' 
VALUE ON 
FAILURE 



The byte of PAR AM -J- 6 is the byte at the location equal to the failing address; 
the byte at PARAM-f- 7 is the byte at a location one less than the failing address. 
Here's an example: If the failing word location is 20H, 80H (location 8020 H) 
and PARAM-f 6, + 7 contain a 63H, 32H with PARAM-f 8, -f 9 containing 67H, 
32H, then the failing location is bit 2 of 8021 H. If the failing word location is 
8020 H, PARAM-f 6, +7 contains a 66H, 32H and PARAM-f 8, -f 9 contains 
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67H, 33H then the failing location is bitO of 8020 H. It is possible, of course, for 
both bytes to fail in the test. 

A typical memory test first stores all zeroes into memory and then reads back 
the locations expecting to find all zeroes. It then stores all ones and reads back 
the data expecting all ones. At this point random data is usually stored and read 
back. METEST bypasses the first two tests of zeroes and ones. 

More comprehensive memory tests are geared to the physical implementation 
of the type of memory. Various memory types have "worst case" test patterns. 
The dynamic memory used in the TRS-80s typically fails when adjacent loca- 
tions are accessed. This test is an attempt to rapidly access adjacent locations 
by using stack instructions. Each PUSH or POP accesses two adjacent loca- 
tions. Pseudo-random (repeatable) data is used for the test. 

The pseudo-random data is generated from the last value in PARAM-t-8, +9. 
This value is multiplied by an odd power of 5, 125. The result is used as a test 
pattern for the two-byte PUSH and as the basis for the next generation of ran- 
dom data. The starting "seed" value can be maintained in later tests or varied 
to generate a new set of pseudo-random numbers. 



Sample Calling Sequence 



NAME OF SUBROUTINE? METEST 
HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 4000C 

PARAMETER BLOCK VALUES? 

+ 2 42000 START ADDRESS 

+ 2 2 48000 END ADDRESS 

H 4 2 

•+620 

+ 8 2 1234 SEED VALUE 
+ 10 

MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 37800 
SUBROUTINE EXECUTED AT 37800 



INPUT: 






OUTPUT 






HL= 40000 




HL= 40 


300 




PARAM+ 





16 


PARAM+ 





16 


PARAM+ 


1 


164 


PARAM+ 


1 


164 


PARAM+ 




128 


PARAM+ 




128 


PARAM+ 


3 


187 


PARAM+ 


3 


187 


PARAM+ 


4 





PARAM+ 


4 





PARAM+ 


5 





PARAM+ 


5 





PARAM+ 


6 





PARAM+ 


6 


82 


PARAM+ 


7 





PARAM+ 


7 


238 


PARAM+ 


8 


210 


PARAM+ 


B 


82 


PARAM+ 


9 


4 


PARAM+ 


9 


238 



-UNCHANGED 



-SUCCESS FLAG 



LAST "IS" VALUE 



LAST "SHOULD BE" VALUE 



NAME OF SUBROUTINE? 



Notes 

1. Make certain ending location is at least one more than starting location. 

2. Odd seed values generate a string of odd test values, even seed values 
generate even test values. 
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Program Listing 



7F00 




wall 1 Mi\[S 




ORG 


7F00H 




5 0520 






fTira lira 


1 *»»****#**«****«*******♦**********»**»***»************** 








;# MEMORY TEST. TESTS A BLOCK OF 


MEMORY. * 








5 


INPUT: 


HL=> PARAMETER 


BLOCK * 






£?Sf?l 1 AO^ 






PARAM+01 + 1 =START I NG 


ADDRESS OF BLOCK * 






iiJiu 1 DIcJ 


:p 




PARAM+25+3=ENDING ADDRESS OF BLOCK ♦ 






00160 






PARAM+4>+5 RESERVED 


FOR SUCCESS FLAG * 






00170 


? # 




PARAM+6, +7=RESERVED 


FOR "IS" RESULT * 






00180 






PARAM+8, +9=N0N- 


ZERO 


"SEED" VALUE * 






00190 




OUTPUT : 


PARAM+4,+5=0 IF 


TEST SUCCESSFUL. FAILING * 






00200 






LOCATION 


IF TEST NOT SUCCESSFUL * 






00210 


" ■¥■ 




PARAM+6> +7=TW0 


BYTES FROH HEMORY - "IS" * 








? # 




PARAM+B,+9=TEST 


PATTERN - »S/B" * 






CTI7|07<7» 


= 44. ^ ^ 4?. ^ 


»*##*♦***««*»***********«*********************»**** 


















/r icfVJ 


r -3 




MpTPQT 
1 iC 1 CO t 


PUSH 


AF 




;SAVE REGISTERS 


TCfT1 1 


U-J 






PUSH 


BC 










00270 




PUSH 


DE 






/ r IdJO 








PUSH 


HL 






/ r 13^ 








PUSH 


I X 






/ ~ also 




00100 




PUSH 


lY 










00310 




CALL 


0A7FH 




;»**GET PB LOC'N*** 


7F0B 


E5 


00320 




PUSH 


HL 




; TRANSFER TO IX 




DDEl 


00330 




Pf)P 


I X 






f r Kit. 


r v3 


ftJ ttJ t-) iti 




n T 
u 1 






; DISABLE INT FOR STACK 


/ r Kir 




r?ii7^7«=s0 










; END ADDRESS TO BC 


7cr 1 o 
friz. 








LD 


R, ( T X + 1 ) 






7cr 1 R 








1 n 


IY5 




; ZERO I Y FOR ADD SP 


7cr 1 Q 


pn"XQ 


00380 




Ann 


TV, CP 




; TRANSFER CURNT SP TO I Y 


7ir 1 D 


nnAPCTiTi 
i/i/oEiiiyitJ 






LD 


L , ( T X + ) 




; GET START 


frliz. 








1 n 


yx.il Y + 1 ) 

117 \J.A'A/ 






"71— i 








LU 






■TMITTAI 7 7F fl JRRFNT 




Dn74t?1'5 


00420 




LD 


( IX+5 ) ! H 






7C07 






MET01 




L , ( I x+4 ) 




; CURRENT ADDRESS TO HL 


7F2A 


JU/^^ l**r ■-J' 


00440 




1 n 

L-i-/ 








7 IT on 


•"'7 






T Kir 


HL 




;BUMP CURRENT ADDRESS 




nn7RCTA 
i/i/ / _)«y*T 






L_JL/ 






; CURNT FOR FAILING LOC 


7F31 


DD /H\DD 


fsra A "7 fa 












7F34 


23 


mm A €2(7i 




T Mr 


HL 




;iST STACK ACTION AT -1 




PQ 
r V 


(TlfiTiAQCT 




LD 


gp, i-iL 




;SET SP FOR TEST 


/r o6 




raran: rara 




LD 


L? < IX+8) 




;SET SEED 


/r Jt 








LD 


H) < IX+9) 






7F3C 


50 






LD 


EsL 




IPUT IN HL AND DE 


71371^ 

/ r i3U 


A 
□ *t 


00530 




LD 


D>H 








7POI7 






LD 


A, 7 




SLOOP COUNT FOR SHIFT 




OO 






ADD 


HL5 HL 




!SEED*2 


7F41 


3D 


00560 




DEC 


A 




; DECREMENT LOOP COUNT 


-Tcr AO 
/'r 4^ 


■~'Cnp r 






JR 


NZ 5 MET020 




5 7 TIMES=TIMES 128 


"7 IT /# A 


P7 






OR 


A 










00590 




SBC 


HLtDE 




!TIMES 127 


7ir A 7 


R7 


1710A(710 




OR 


A 










KJIlIO J. 8J 




SBC 


HL5DE 




;TIMES 126 


7F4A 








OR 


A 




; TIMES 125 










SBC 


HL?DE 








00640 




LD 


< IX+8) ,L 




; STORE NEW SEED 


7F50 


DD7409 


00650 




LD 


aX+9)fH 




; ACTUAL TEST HERE 


7F53 


E5 


00660 




PUSH 


HL 




7F54 


Dl 


00670 




POP 


DE 




!PUSH AND RETRIEVE 


7F55 


B7 


00680 




OR 


A 




; CLEAR CARRY 


7F56 


ED52 


00690 




SBC 


HLf DE 




;TEST FOR ESUAL 


7F58 


19 


00700 




ADD 


HL.DE 




; RESTORE "IS" 


7F59 


DD7506 


00710 




LD 


( IX+6) 5L 




!SAVE IN »IS° 


7F5C 


DD7407 


00720 




LD 


( IX+7) >H 
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7F5F 2012 
7F61 DD6E04 
7F64 DD6605 
7F67 B7 
7F68 ED42 
7F6A 20BB 
7F6C AF 
7F6D DD7704 
7F70 DD7705 
7F73 FDF9 
7F75 FDEl 
7F77 DDEl 
7F79 El 
7F7A Dl 
7F7B CI 
7F7C Fl 
7F7D C9 
0000 

00000 TOTAL 



ERRORS 



00730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 



MET030 



JR 

LD 

LD 

OR 

SBC 

JR 

XOR 

LD 

LD 

LD 

POP 

POP 

POP 

POP 

POP 

POP 

RET 

END 



lY 
IX 
HL 
DE 
BC 
AF 



NZ,MET030 
L» C IX+4) 
H» ( IX+5) 
A 

HLjBC 

NZ>MET010 

A 

( IX+4) , A 

(IX+5) , A 
SP, lY 



; RETURN TO CALLING PROG 



; RESTORE SP 

; RESTORE REGISTERS 



; CLEAR CARRY 

;TEST FOR END 

;LOOP FOR NXT TST OF 2 

;TEST SUCCESSFUL HERE 

;SET SUCCESSFUL FLAG 



!S0 IF NOT EQUAL 
IGET CURRENT LOCATION 



METEST DECIMAL VALUES 



245 5 197, 21 3» 229 s 221 > 229, 253. 229 » 205. 127. 
10' 229. 221. 225. 243. 221, 78, 2, 221. 70, 
3. 253, 33. 0, 05 253, 57. 221, 110, 0, 
221. 102, 1. 221, 117, 4, 221, 116, 5, 221, 
110. 4. 221. 102. 5, 35. 221, 117, 4. 221. 

116, 5. 35, 249, 221. 110. 8, 221, 102. 9, 
93. 84, 62, 7. 41, 61, 32. 252. 183, 237, 
82. 183, 237. 82, 183. 237. 82, 221. 117. S. 
221, 116. 9, 229, 209. 183, 237. 82. 25. 221. 

117, 6. 221. 116, 7, 32. 18. 221, 110, 4, 
221. 102, 5, 183. 237. 66, 32. 187, 175, 221. 
119, 4, 221, 119. 5. 253. 249. 253. 225. 221, 
225, 225. 209, 193, 241. 201 



CHKSUM= 51 



System Configuration 

Model I, Model III, Model II Stand Alone. 



Description 

MLEBYE multiplies an 8-bit binary number by an 8-bit binary number to give a 
16-bit product. The multiply is a "fast" multiply that operates twice as fast as 
conventional multiplies. The multiply is an "unsigned" multiply, where both 
operands are treated as 8-bit absolute numbers. 



Input/Output Parameters 

On input, the H register contains the 8-bit multiplier and the L register contains 
the 8-bit multiplicand. On output, HL contains the 16-bit product. 



MLEBYE: FAST 8 BY 8 MULTIPLY 
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INPUT 



OUTPUT 



H L H L 



MULTIPLIER 


MULTIPLICAND 


0-255 


0-255 



p PRODUCT 0-65,025 



Algorithm 

The MLEBYE subroutine performs the multiply by a bit-by-bit multiply in eight 
steps. To reduce overhead, "straight-line" coding rather than a loop structure is 
used. 

The multiplicand is put into BC and the multiplier into H. The L register is 
cleared. The HL register is used to shift out multiplier bits from the left end into 
the carry and to hold the partial product in the L register end. The HL register is 
shifted left eight times. For each shift, a multipler bit from H is tested, if it is a 
one bit, the multiplicand in C is added to HL by an "ADD HL, BC"; if it is a 
zero, nothing is done. The next shift moves the partial product in L toward the 
left. At the end of the eight steps, the entire multiplier has been shifted out of H, 
and HL holds the 16-bit product. 

Sample Calling Sequence 

NAME OF SUBROUTINE? MLEBYE 

HL VALUE? 65535 MULTIPLIER = 255, MULTIPLICAND = 255 

PARAMETER BLOCK LOCATION? 

MEMORY BLOCK 1 LOCATION? 

MOVE SUBROUTINE TO? 55000 

SUBROUTINE EXECUTED AT 55000 

INPUT: OUTPUT: 

HL= 65535 HL= 65025 RESULT = 255 x 255 

NAME OF SUBROUTINE? 

Notes 

1. Maximum multiplier is 255. Maximum multiplicand is 255. The maximum 
product will be 65,535. 









Program Listing 








7F00 




00100 


ORG 




7F00H 


5 0520 






001 10 








00120 


;» FAST 8 BIT 


BY 8 BIT MULTIPLY 


TO YIELD 16 BIT PRODUCT.* 






00130 


INPUT: 


HL= 


=MULTIPLIER IN H» 


MULTIPLICAND IN L » 






00140 


?» OUTPUT: 


HL = 


=16-8 IT PRODUCT. 


0-65535 * 






00150 


; #***»*»***♦**»*********»»***♦*#«»»»**»**«****♦♦»*»*»***» 






00160 










7F00 


C5 


00170 


MLEBYE PUSH 




BC 


5 SAVE REGISTER 


7F01 


CD7F0A 


00180 


CALL 




0A7FH 


; #«*GET HL#** 


7F04 


4D 


00190 


LD 




C,L 


1 MULTIPLICAND TO C 


7F05 


0600 


00200 


LD 




B> 


;now in BC 


7F07 


68 


00210 


LD 




L, B 


50 TO L 


7F0S 


29 


00220 


ADD 




HL, HL 


5 SHIFT MULTIPLIER, PRODUCT 


7F09 


3001 


00230 


JR 




NC,MLE010 


5 GO IF MULTIPLIER BIT=0 


7F0B 


09 


00240 


ADD 




HL.BC 


5 ADD MULTIPLICAND 


7F0C 


29 


00250 


MLE010 ADD 




HL, HL 
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7FaD 


3001 


0B260 




JR 


NC)MLE020 


7F0F 


89 


00270 




ADD 


HLi BC 


7F10 


29 


00280 


MLE020 


ADD 


HLi HL 


7F1 1 


3001 


00290 




JR 


NCj MLE030 


7F13 


09 


00300 




ADD 


HL> BC 


7F14 


29 


00310 


MLE030 


ADD 


HLj HL 


7F15 


3001 


00320 




JR 


NCi MLE040 


7F17 


09 


00330 




ADD 


HLjBC 


7F18 


29 


00340 


MLE040 


ADD 


HL> HL 


7F19 


3001 


00350 




JR 


NC» MLE050 


7F1B 


09 


00360 




ADD 


HL» BC 


7F1C 


29 


00370 


MLE050 


ADD 


HL» HL 


7F1D 


3001 


00380 




JR 


NC> MLE060 


7F1F 


09 


00390 




ADD 


HL 5 BC 


7F20 


29 


00400 


MLE060 


ADD 


HL> HL 


7F21 


3001 


00410 




JR 


NC5HLE07B 


7F23 


09 


00420 




ADD 


HLi BC 


7F24 


29 


00430 


MLE070 


ADD 


HLf HL 


7F25 


3001 


00440 




JR 


NCsHLEBSB 


7F27 


09 


00450 




ADD 


HLjBC 


7F28 


CI 


00460 


MLE080 


POP 


BC 


7F29 


C39A0A 


00470 




JP 


0A9AH 


7F2C 


C9 


00480 




RET 




0000 




00490 




END 




00000 TOTAL 


ERRORS 









; RESTORE REGISTER 
;**»RETURN ARGUHENT#«# 
5 NON-BASIC RETURN 



mlebye decihal values 



197» 205; 127, 10, 775 6, 0, 104, 41, 48> 
1, 9, 41, 48, 1, 9, 41) 48, 1, 9, 
41. 48, 1, 9, 41, 48, 1, 9, 41, 48, 
1 , 9, 41 , 48, 1, 9, 41 , 48, 1, 9, 
193, 195, 154, 10, 201 



CHKSUH= 223 



MLSBYS: SIXTEEN BY SIXTEEN MULTIPLY 



System Configuration 

Model I, Model III, Model II Stand Alone. 



Description 

MLSBYS multiplies a 16-bit binary number by a 16-bit binary number. The 
multiply is an "unsigned" multiply, where both numbers are considered to be 
absolute numbers without sign. A 32-bit product is returned. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the 16-bit multiplicand. The next two 
bytes of the parameter block contain a 16-bit multiplier. Both are in Z-80 16-bit 
format. The next four bytes of the parameter block are reserved for the 32-bit 
quotient. 
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On output, PARAM+3 to PARAM+6 hold the 32-bit product, arranged in next 
ms, ms. Is, next Is format. The contents of the remainder of the parameter 
block remain unchanged. 



INPUT 
H L 



POINTER TO PARAM+0 



+ 



3 



OUTPUT 



+ 



UNCHANGED 



-+- 



PARAM+0 
+ 1 
+2 
+3 
+4 
+5 
+6 
+7 



1 6-BIT 
MULTIPLICAND 



16-BIT 
MULTIPLIER 



RESERVED 
FOR 

RESULT 



PARAM+0 
+ 1 



UNCHANGED -- 



+2 
+3 
+4 
+5 
+6 
+7 



UNCHANGED 



32-BIT 
PRODUCT 



Algorithm 

The MLSBYS subroutine performs the multiply by a "bit-by-bit" multiply in 16 
iterations. The multiplier bits are tested from left to right. For each one bit in the 
multiplier, the multiplicand is added to a "partial product." The partial product 
is shifted left with each iteration. At the end of 16 iterations, all multiplier bits 
have been tested, and the partial product contains the true 32-bit product of the 
multiply. 

The multiplicand is first put into BC, and the multiplier in DE. The A register is 
initialized with the iteration count of 16. The HL register is cleared toO. The DE 
and HL registers will contain the partial product and will be shifted toward the 
left. 

The code at MLS010 is the 16-iteration loop of MLSBYS. For each iteration, DE, 
HL is shifted one bit left. As it is shifted, the multiplier bit from DE goes into the 
carry. If the carry is set (multiplier bit is a one), the multiplicand in BC is added 
to the partial product. If the carry is reset (multiplier bit is a zero), no add is 
done. At the end of 16 iterations DE, HL contains the 32-bit product. 



Sample Calling Sequence 



NAME OF SUBROUTINE? MLSBYS 
HL VALUE? 38888 

PARAMETER BLOCK LOCATION? 38888 
PARAMETER BLOCK VALUES? 
+ 2 65535 MULTIPLICAND 
+ 2 2 65535 MULTIPLIER 



-INITIALIZE RESULT FOR EXAMPLE 



MEMORY BLOCK I LOCATION? 
MOVE SUBROUTINE TO? 40000 
SUBROUTINE EXECUTED AT 40000 
INPUT: OUTPUT: 
HI =•-■ 38888 HL= 38888 



+ 


4 


2 





+ 


6 


2 





+ 


8 
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PARAM+ 





255 


PA RAM+ 





255 


PARAM+ 


1 


235 


PARAM+ 




255 


PARAM-t- 




235 


PARAH+ 




255 


PARAM+ 


3 


255 


PARAH+ 


3 


255 


PARAM+ 


4 





PARAH+ 


4 


254 


PARAM+ 


5 





PARAM+ 


5 


255 


PARAM+ 


6 





PARAM+ 


6 


1 


PARAM+ 


7 





PARAM+ 


7 






-UNCHANGED 



254, 255, 1,0 = 255,254, 
1 = 4, 294, 836, 225 



NAME OF SUBROUTINE? 



Notes 



1 . Maximum multiplier is 65,535. Maximum multiplicand is 65,535. 

2. Note that the product is in 1,0,3,2 order. 

Program Listing 



7F0B 



7F00 
7F01 
7F02 
7F03 
7F04 
7F06 
7F09 
7F0A 
7F0C 
7F0F 
7F12 
7F15 
7F18 
7F1A 
7F1D 
7F1E 
7F1F 
7F21 
7F22 
7F24 
7F25 
7F27 
7F28 
7F29 
7F2B 
7F2E 
7F31 
7F34 
7F37 
7F39 
7F3A 
7F3B 
7F3C 
7F3D 
0000 
00000 



F5 
C5 
D5 
E5 

DDES 
CD7F0A 
E5 
DDE! 
DD4E00 
DD4601 
DD5E02 
DD5603 
3E10 
210000 
29 
EB 

ED6A 
EB 

3004 

09 
3001 
13 
3D 

20F2 
DD7304 
DD7205 
DD7506 
DD7407 
DDEl 
El 
Dl 
CI 
Fl 
C9 

TOTAL 



00100 
001 10 
00120 
00130 
00140 
00150 
00160 
00 1 70 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
ERRORS 



ORG 7F00H 5 0522 

; ########*■»###**##*«#**###*#*#*#*»#***##«*«**«■*#**#*****♦ 
;» SIXTEEN BY SIXTEEN MULTIPLY TO YIELD 32-BIT PRODUCT. * 
;* INPUT: HL=> PARAMETER BLOCK * 
5* PARAM+0, +1=MULTIPLICAND * 

;* PARAM+2, +3=MULTIPLIER * 

;* PARAM+4? +5» +6? +7=RESERVED FOR PRODUCT « 

;» 0UTPUT!PARA+4i+5)+6!+7 HOLD 32-BIT PRODUCT * 
; #*#**#»««»*»»»«*»»*«#«#»»»««*»*****»»«»»«»**#»#*«*««***» 



MLSBYS 



MLS010 



MLS020 



PUSH 


AF 


PUSH 


BC 


PUSH 


DE 


PUSH 


HL 


PUSH 


IX 


CALL 


0A7FH 


PUSH 


HL 


POP 


IX 


LD 


C, ( IX+0> 


LD 


B, (IX+1) 


LD 


E, <lX+2) 


LD 


D, < IX+3) 


LD 


Af 16 


LD 


HL, 


ADD 


HLsHL 


EX 


DE,HL 


ADC 


HL,HL 


EX 


DEsHL 


JR 


NC,MLS020 


ADD 


HL.BC 


JR 


NCi MLS020 


INC 


DE 


DEC 


A 


JR 


NZ, MLS010 


LD 


( IX+4) 5E 


LD 


(IX+5),D 


LD 


( IX+6) 1 L 


LD 


( IX+7) , H 


POP 


IX 


POP 


HL 


POP 


DE 


POP 


BC 


POP 


AF 


RET 




END 





;SAVE REGISTERS 



;#*«SET PB LOC N*»» 
! TRANSFER TO IX 

5 PUT MULTIPLICAND IN BC 

I PUT MULTIPLIER IN DE 

; ITERATION COUNT 
;ZERO PARTIAL PRODUCT 

; SHI FT PARTIAL PROD LEFT 
;GET MS 16 BITS 
; SHIFT PART PROD PLUS C 
5 RESTORE UPPER 16 BITS 
5G0 IF MULTIPLIER BIT=B 
;ADD IN MULTPLICAND 
;G0 IF NO CARRY 
;BUMP UPPER 16 BITS 
; DECREMENT ITERATION CNT 
5L00P FOR 16 ITERATIONS 
; STORE PRODUCT 



; RESTORE REGISTERS 



; RETURN TO CALLING PROS 
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MLSBYS DECIMAL VALUES 



245? 1975 213, 229, 221 > 229, 205, 127? 10i 229? 
2215 225> 221," 78, 0? 221 ? 70, 1, 221 ■> 94, 
2? 221, 86, 3, 62 D 16, 33, 0, 0, 41, 
235, 237, 106, 235 , 48, 4, 9, 48, 1 , 19, 
61, 32, 242, 221, 115, 4, 221, 114, 5, 221, 
117, 6, 221 , 116, 7, 221, 225, 225, 209, 193, 
241 , 201 



CHKSUH= 201 



MOVEBL: MOVE BLOCK 



System Configuration 

Model I, Model III, Model II Stand Alone. 



Description 

MOVBLK moves a block of memory to another block of memory. The blocks 
may be overlapping; a check Is made for the proper direction of the move to 
prevent replication of data if the block move is made in the wrong direction. 
Any number of bytes up to the limit of memory may be moved. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the address of the source block in 
standard Z-80 address format, least significant byte followed by most significant 
byte. The next two bytes are the address of the destination block in Z-80 ad- 
dress format. The next two bytes of the parameter block contain the number of 
bytes to move in Z-80 format. 

On output, the parameter block contents remain unchanged. The source block 
has been moved to the destination block area. 



INPUT 



OUTPUT 



H 



POINTER TO PARAM + 



PARAM-t-0 
+ 1 


SOURCE 
ADDRESS 

(MEM 1+0) 


+2 


DESTINATION 




ADDRESS 


+3 


(MEM2+0) 


-1-4 
+5 


# OF 
K BYTES 
TO MOVE 



PARAM+0 
+ 1 
+2 
+3 
+4 
+5 



-- UNCHANGED -- 



UNCHANGED 

1 



UNCHANGED -- 



UNCHANGED -- 
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MEM 1+0 
+ 1 



SOURCE 
BYTES 



+2 
+3 
+4 
+5 
+6 



-- UNCHANGED -- 



MEM2+^ 
+ 1 
+2 
+3 
+4 
+5 
+6 



AREA 
FOR 
DESTINATION 

BYTES 



MEM2+0 
+ 1 
+2 
+3 
+4 
+5 
+6 



SOURCE 
BYTES 



Algorithm 

The main concern in MOVEBL is to test for either a "beginning to end" move 
or an "end to beginning" move. The wrong choice will replicate data in the 
block when the source and destination areas are overlapping. A test for overlap 
is not done, since it is simpler to choose either an LDIR or LDDR based on the 
relationship of the starting addresses. 

The source address is put into HL, the destination address into DE, and the 
number of bytes into BC. A comparison is then done by subtracting the destina- 
tion address from the source address. If the result is positive, the source address 
is less than the destination and an LDIR will perform the move with no conflict. 
If the result is negative, an LDDR must be done. In this case the source and 
destination addresses are recomputed so that they point to the end of the blocks 
for the LDDR. 

Sample Calling Sequence 



NAME OF SUBROUTINE? MOVEBL 
HL VALUE? 45000 

PARAMETER BLOCK LOCATION? 45000 

PARAMETER BLOCK VALUES? 

+ 2 50000 SOURCE ADDRESS 

+ 2 2 50001 DESTINATION ADDRESS 

+ 4 2 5 5 BYTES 

+ 600 

MEMORY BLOCK 1 LOCATION? 50000 
MEMORY BLOCK 1 VALUES? 



INITIALIZE SOURCE FOR EXAMPLE 



+ 





1 





+ 


1 


1 


1 


+ 


'2 


1 


2 


+ 


3 


1 


3 


+ 


4 


1 


4 


+ 


5 


1 


5 


+ 


6 


1 


6 


+ 


7 
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MEMORY BLOCK 2 LOCATION? 

HOVE SUBROUTINE TO? 37777 
SUBROUTINE EXECUTED AT 37777 



INPUT: 






OUTPUT: 






HL= 45000 




HL= 45000 




PARAM+ 





80 


PARAM+ 





80 


PARAM-»- 


1 


195 


PARAM+ 


1 


195 


PARAM+ 


2 


81 


PARAM+ 


2 


81 


PARAM+ 


3 


1 95 


PARAM+ 


3 


195 


PARAM+ 


4 


5 


PARANA- 


4 


5 


PARAM+ 


5 





PAR AM+ 


5 





HEHB1+ 








MEMB1+ 








MEMB1+ 


1 


1 


HEHB1+ 


1 





MEMB1+ 


2 


2 


MEMB1+ 


2 


1 


MEMB1+ 


3 


3 


MEMB1+ 


3 


2 


MEMB1+ 


4 


4 


HEHB1+ 


4 


3 


MEMB1+ 


5 


5 


MEMB1+ 


5 


4 


HEMB1+ 


6 


6 


MEMB1+ 


6 


6 



-UNCHANGED 



DESTINATION 



NAME OF SUBROUTINE? 



Notes 

1. The number of bytes moved may be 1 to 65,536 (0 is 65,536). 



Program Listing 



7F00 




00100 




ORG 




7F00H 


5 0612 






00110 










00120 


;« 


MOVE BLOCK. 


MOVES BLOCK OF DATA FROM SOURCE AREA TO ♦ 






00130 


;* 


DESTINATION 


AREA. AREAS MAY 


BE OVERLAPPING. » 






00140 


5* 


input: 


HL 


=> PARAMETER BLOCK * 






00150 


!* 




PARAM+0, +1=S0URCE 


ADDRESS * 






00160 


;* 




PARAM+2» +3=DESTINATI0N ADDRESS * 






00170 


?* 




PARAM+4,+5=# OF BYTES TO MOVE * 






00180 


; # 


OUTPUT: BLOCK MOVED 








00190 


;*■***#*«*«♦#«#*•»*#*«*#*********#*#***##*##«»***•)«■*•»»*#«#*♦ 






00200 


; 










7F00 


C5 


00210 


MOVEBL PUSH 




BC 


!SAVE REGISTERS 


7F01 


D5 


00220 




PUSH 




DE 




7F02 


E5 


00230 




PUSH 




HL 




7F03 


DDES 


00240 




PUSH 




IX 




7F05 


CD7F0A 


00250 




CALL 




0A7FH 


!**«GET PB LOC'N««« 


7F08 


E5 


00260 




PUSH 




HL 


; TRANSFER TO IX 


7F09 


DDEl 


00270 




POP 




IX 




7F0B 


DD6E00 


00280 




LD 




L» (IX+0) 


fPUT SOURCE ADDRESS IN HL 


7F0E 


DD6601 


00290 




LD 




H5 (IX+1 ) 




7F11 


DD5E02 


00300 




LD 




E? I IX+2) 


IPUT DESTINATION ADD IN DE 


7F14 


DD5603 


00310 




LD 




D, (IX+3) 




7F17 


DD4E04 


00320 




LD 




C, < IX+4) 


3 PUT BYTE COUNT IN BC 


7F1A 


DD4605 


00330 




LD 




B, (IX+5) 




7F1D 


E5 


00340 




PUSH 




HL 


.-SAVE SOURCE ADDRESS 


7F1E 


B7 


00350 




OR 




A 


; CLEAR CARRY 


7F1F 


EDS 2 


00360 




SBC 




HL»DE 


1 COMPARE SOURCE TO DEBT ADDR 


7F21 
7F23 


CB7C 
El 


00370 
00380 




BIT 
POP 




75H 
HL 


!TEST SIGN 

; RESTORE SOURCE ADDRESS 


7F24 


2004 


00390 




JR 




NZ . MOV020 


5 GO IF LDDR REQUIRED 


7F26 


EDB0 


00400 




LDIR 






5 MOVE BLOCK 


7F28 


1808 


00410 




JR 




MOV030 


;G0 TO CLEANUP 


7F2A 


0B 


00420 


MOV020 DEC 




BC 


;# OF BYTES- 1 


7F2B 


09 


00430 




ADD 




HLfBC 


; POINT TO NEW SOURCE 


7F2C 


EB 


00440 




EX 




DEsHL 


5 GET DESTINATION 


7F2D 


09 


00450 




ADD 




HLiBC 


; POINT TO NEW DESTINATION 


7F2E 


EB 


00460 




EX 




DEiHL 


; RESTORE 
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7F2F 


03 


00470 


INC 


BC 




7F30 


EDB8 


00480 


L_yuH 






7F32 


Due. 1 




PAP 


T Y 

1 A 




7F34 


El 


00500 


POP 


HL 




7F35 


Dl 


00510 


POP 


DE 




7F36 


CI 


00520 


POP 


BC 




7F37 


C9 


00530 


RET 




; RETURN TO CALLING 


0000 




00540 


END 







00000 TOTAL ERRORS 



MOVEBL DECIMAL VALUES 



197) 213) 229) 221) 229) 205» 127) 10) 229) 221 ^ 

225) 221) 1 10) 0) 221) 102) 1) 221) 94) 2) 

221) 86) 3) 221) 78) 4) 221) 70, 5) 229, 

183) 237) 82, 203, 124, 225) 32, 4, 237, 176, 

24) 8, 11) 9, 235) 9) 235) 3) 237, 184, 

221, 225, 225) 209, 193) 201 



CHKSUM= 12 
MPADDN: MULTIPLE-PRECISION ADD 



System Configuration 

Model I, Model ill, Model II Stand Alone. 



Description 

MPADDN adds a "source" string of bytes to a "destination" string of bytes and 
puts the result of the add into the destination string. Each of the two strings is a 
multiple-precision binary number. Each of the two strings is assumed to be the 
same length. The length of each string may be any number from 1 through 255 or 
0, which is 256 bytes. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the address of the destination string in 
standard Z-80 address format, least significant byte followed by most significant 
byte. The next two bytes of the parameter block contain the address of the 
source string in the same format. The next byte of the parameter block contains 
the number of bytes in the two operands. 

On output, the parameter block and source string are unchanged. The destina- 
tion string contains the result of the multiple-precision add. 

INPUT OUTPUT 
L H L 



+ 



POINTER TO PARAM+0 



3 



UNCHANGED 
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PARAM+0 
+ 1 
+2 
+3 
+4 



ADDRESS 
OF MEM 1+0 



ADDRESS 

OF MEM2+0 



# OF BYTES 



PARAM+0 
+ 1 
+2 
+3 
+4 



-- UNCHANGED -- 



-- UNCHANGED 



UNCHANGED 



MEM 1+0 
+ 1 
+2 
+3 
+4 
+5 
+6 



OPERAND 
ONE 
BYTES 



MEM 1+0 
+ 1 
+2 
+3 
+4 
+5 
+6 



RESULT 
OF 
ADD 
BYTES 



OPERAND 
TWO 
BYTES 



MEM2+0 

+ 1 
+2 

> +3 
+4 
+5 
+6 



-- UNCHANGED -- 



Algorithm 

The MPADDN subroutine performs one add for each byte in the operands. The 
destination string address and source string address are first picked up from 
the parameter block and put into DE and HL, respectively. The number of bytes 
in the add is then picked up and put into the BC register pair. This number 
minus one is then added to the source and destination pointers so that they 
point to the least significant bytes of the source and destination strings. The 
number of bytes is then put into the B register for loop control. 

The next destination byte is then picked up from the destination string (DE 
register pointer). An ADC is made of the two source string digits (HL register 
pointer). The result is then stored in the destination string. 

The source and destination string pointers are then decremented by one to 
point to the next most significant two bytes of each operand. The B register 
count is then decremented by a DJNZ, and a loop back to MPA010 is made for 
the next add. 

The carry is cleared before the first add, but successive adds add in the carry 
from the preceding operation. If the destination operand was OOH, F5H, 6EH, 
1 1 H and the source operand was OOH, FFH, 77H, 33 H, then the number of 
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operand bytes must be 4. The result in the destination operand would be 01 H, 
F4H, E5H, 44H. Note that the result may be one bit larger than the original 
number of bits in the operands. 



Sample Calling Sequence 



NAME OF SUBROUTINE? MPADDN 
HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 
PARAMETER BLOCK VALUES? 

+ 2 42000 POINTS TO DESTINATION 
+ 2 2 44000 POINTS TO SOURCE 
+ 4 2 5 5 BYTES 

+ 600 

MEMORY BLOCK 1 LOCATION? 42000 
MEMORY BLOCK 1 VALUES? 
1 255 
1 

DESTINATION = FFFFFFFEFFH 



1 
1 
1 
1 




255 
255 
254 
255 




MEMORY BLOCK 
MEMORY BLOCK 



1 
1 
1 
1 
1 







1 


1 




LOCATION? 44000 
VALUES? 



SOURCE = 0000010001 H 



MOVE SUBROUTINE TO? 38000 
SUBROUTINE EXECUTED AT 38000 



INPUT: 






OUTPUT 






HL= 40000 




HL= 40000 




PARAM+ 





16 


PARAM+ 





16 


PARAM+ 


1 


164 


PARAM+ 


1 


164 


PARAM+ 


2 


224 


PARAM+ 


2 


224 


PARAM+ 


3 


171 


PARAM+ 


3 


171 


PARAM+ 


4 


5 


PARAM+ 


4 


5 


PARAM+ 


5 





PARAM+ 


5 





MEMB,t + 





255 


MEMB1+ 








MEMB1+ 


1 


255 


MEMB1+ 


1 





MEMB1+ 




255 


MEMB 1 + 







MEMB1+ 


3 


254 


MEMB1+ 


3 


255 


MEMB1+ 


4 


255 


MEMB 1 + 


4 





MEMB2+ 








MEMB2+ 








MEMB2+ 


1 





MEMB2+ 


1 





MEMB2+ 




1 


MEMB2+ 




1 


MEMB2+ 


3 





MEMB2+ 


3 





MEMB2+ 


4 


1 


MEMB2+ 


4 


1 



-UNCHANGED 



RESULT = 00000000FF00H 



-UNCHANGED 



NAME OF SUBROUTINE? 

Notes 

1. The destination string is fixed length. Leading zero bytes must precede the 
operands to handle the result, which may be one bit larger than either of the 
operands. 

2. This may be either a "signed" or "unsigned" add. If a two's complement 
number is used, then the sign must be "sign extended" to the more significant 
bits of the operands. 
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Program Listing 



7F00 




00100 


ORG 


7F00H 


10522 






001 10 








00120 


!# MULTIPLE- 


PRECISION ADD. ADDS 


TWO MULTIPLE-PRECISION * 






00130 


;« OPERANDS? 


ANY LENGTH. 


* 






00140 


?» INPUT: 


HL=> PARAHETER BLOCK * 






00150 


5* 


PARAM+0, 4-l=ADDRESS 


OF OPERAND 1 * 






00160 


?* 


PARAM4-2, +3=ADDRESS 


OF OPERAND 2 * 






001 70 


;* 


PARAM+4=# OF BYTES 


0-256 * 






ami Rm 


;« OUTPUT: OPERAND 1 LOCATION 


HOLDS RESULT # 








!*««#*####***#-»*«**«###****#«*«##**«###«#***#-»**#####«-»*# 








! 






7F00 


F5 


00210 


MPADDN PUSH 


AF 


5SAVE RE (SISTERS 


7F01 


C5 


00220 


PUSH 


BC 




7F02 


D5 


00230 


PUSH 


DE 




7F03 


E5 


00240 


PUSH 


HL 






JJUtJ 


00250 


PUSH 


IX 




/r ioo 






CALL 


0A7FH 


!#**SET PB LOC'N*«» 






1 MS 


PUSH 


HL 


1 TRANSFER TO IX 


■7 c: 01 A 






POP 


IX 










LD 


E. (IX+0) 


;GET OP 1 LOC'N 








LD 


D5 ( IX+1 ) 




7F12 


DD6E02 

A-/ Imw ^ 


0031 


LIJ 


L 5 ( I X+2 ) 


5 GET OP 2 LOC N 


7F15 


DD6603 


00320 


I r\ 
LU 


H» ( I X+3 ) 




7F18 


DD4E04 


00330 


1 n 
LO 


r- / T V _i_ /. \ 
L? ( 1 A + *f ; 


jtifc.! w Or BYTcS 


7F1B 


0600 


00340 






" Ki*"ii 1 T hi v^r- 
5 NUH IN oC 


7F1D 


0B 


00350 


JUc. L. 






7F1E 


09 


00360 


ADD 


HL? BC 


; POINT TO LAST 0P2 


7F1F 


EB 


00370 


t A 


Dt 5 HL 


; SWAP DE AND HL 


7F20 


09 


00380 


ADD 


HL^BC 


; POINT TO LAST OPl 


7F2I 


EB 


00390 


EX 


DEf HL 


5 SWAP BACK 


7F22 


41 


00400 


LD 


Bj C 


BACK TO B 


7F23 


04 


00410 


INC 


B 


; ORIGINAL NUMBER 


7F24 


B7 


00420 


OR 


A 


; CLEAR CARRY FOR FIRST ADD 


7F25 


lA 


00430 


HPA010 LD 


A, (DE) 


;6ET OPERAND 1 BYTE 


7F26 


8E 


00440 


ADC 


As (HL) 


;ADD OPERAND 2 


7F27 


12 


00450 


LD 


(DE) J A 


1 STORE RESULT 


7F28 


2B 


00460 


DEC 


HL 


; POINT TO NEXT 0P2 


7F29 


IB 




DEC 


DE 


! POINT TO NEXT OPl 


7F2A 


10F9 


0048B 


DJNZ 


MPA018 


;L00P FOR N BYTES 


7F2C 


DDEl 


00490 


POP 


IX 


1 RESTORE REGISTERS 


7F2E 


El 


00500 


POP 


HL 




7F2F 


Dl 


00510 


POP 


DE 




7F30 


CI 


00520 


POP 


BC 




71-31 


Fl 


00530 


POP 


AF 




7F32 


C9 


00540 


RET 




; RETURN TO CALLING PROG 


0000 




00550 


END 






00000 TOTAL 


ERRORS 









MPADDN DECIMAL VALUES 



245» 197s 213» 229? 221 ! 229. 2055 127, 10, 229? 

221 » 225! 221 » 94> 0, 221 s 865 is 221 » 110, 

2? 221 J 102? 3? 221 » 78i 4? 6? 0» lis 

9, 235j 9! 2355 65) 4» 1S3> 265 142» I85 

43) 27 > 16> 249, 221, 225, 225, 209, 193, 241, 

201 



CHKSUM= 73 
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MPSUBT: MULTIPLE-PRECISION SUBTRACT 



System Configuration 

Model I, Model III, Model II Stand Alone. 

Description 

MPSUBT subtracts a "source" string of bytes from a "destination" string of 
bytes and puts the result of the subtract into the destination string. Each of the 
two strings is a multiple-precision binary number. Each of the two strings is 
assumed to be the same length. The length of each string may be any number 
from 1 through 255 or 0, which is 256 bytes. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the address of the destination string in 
standard Z-80 address format, least significant byte followed by most significant 
byte. The next two bytes of the parameter block contain the address of the 
source string in the same format. The next byte of the parameter block contains 
the number of bytes in the two operands. 

On output, the parameter block and source string are unchanged. The destina- 
tion string contains the result of the multiple-precision subtract. 



INPUT 



OUTPUT 



H 



+ 



POINTER TO PARAM+0 



UNCHANGED 



PARAM+0 

+ 1 
+2 
+3 
+4 



ADDRESS 
OF MEM 1+0 



ADDRESS 
OF MEM2+0 



# BYTES 



PARAM+0 
+ 1 
+2 



"7 



> 



+3 

+4 



UNCHANGED -- 



UNCHANGED -- 



UNCHANGED 



OPERAND 

ONE 
BYTES 



MEM 1+0 
+ 1 



+2 
+3 
+4 
+5 
+6 



RESULT 
OF 
SUB 
BYTES 
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MEM2+0 
+ 1 
+2 
+3 
+4 
+5 
+6 



OPERAND 
TWO 
BYTES 



MEM2+0 
+ 1 
+2 



+3 
+4 
+5 
+6 



UNCHANGED 



Algorithm 

The MPSUBT subroutine performs one subtract for each byte in the operands. 
The destination string address and source string address are first picked up 
from the parameter block and put into DE and HL, respectively. The number of 
bytes in the subtract is then picked up and put into the BC register pair. This 
number minus one is then added to the source and destination pointers so that 
they point to the least significant bytes of the source and destination strings. 
The number of bytes is then put into the B register for loop control. 

The next destination byte is then picked up from the destination string (DE 
register pointer). An SBC is made of the two source string digits (HL register 
pointer). The result is then stored in the destination string. 

The source and destination string pointers are then decremented by one to 
point to the next most significant two bytes of each operand. The B register 
count is then decremented by a DJNZ, and a loop back to MPS010 is made for 
the next subtract. 

The carry is cleared before the first subtract, but successive subtracts subtract 
the carry from the preceding operation. If the destination operand was OOH, 
F5H, 6EH, 11 H and the source operand was OOH, FFH, 77H, 33H, then the 
number of operand bytes must be 4. The result in the destination operand 
would be FFH, F5H, E6H, DEH. The result may be one bit larger than the 
original number of bits in the operands or may be a negative number. 



Sample Calling Sequence 



N,iME OF SUBROUTINE? MPSUBT 
HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 
PARAMETER BLOCK VALUES? 
+02 42000 
^ 2 2 44000 

+ 4 2 5 # OF BYTES 
+ 600 

MEMORY BLOCK 1 LOCATION? 42000 



MEMORY 


BLOCK 1 VALUES? 


+ 1 


i 




+ 1 1 







-f 2 1 





- DESTINATION - 00000000H 


+ 3 1 







+ 4 1 







+ 5 
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MErHORY BLOCK 2 LOCATION? 44000 
MEMORY BLOCK 2 VALUES? 



1 
1 
1 
1 
1 




SOURCE = 00000001 H 



MOVE SUBROUTINE TO? 38000 
SUBROUTINE EXECUTED AT 38000 



HL^^40000 




OUTPUT: 
HL= 40000 




PARAM+ 





16 


PARAH+ 





16 


PARAM+ 


1 


164 


PARAM+ 


1 


164 


PARAM+ 


2 


224 


PARAH+ 


2 


224 


PARAH+ 


3 


171 


PARAM+ 


3 


171 


PARAM+ 


4 


5 


PARAH+ 


4 


5 


PARAM+ 


5 





PARAH+ 


5 





MEMB1+ 








MEHB1+ 





255 


MEMB1+ 


1 





MEMBI+ 


1 


255 


HEMB1+ 


2 





MEHB1+ 




255 


MEMS I + 


3 





HEMB1+ 


3 


255 


MEMB1+ 


4 





HEMB1+ 


4 


255 


MEMB2+ 








HEHB2+ 








HEHB2+ 


1 





MEMB2+ 


1 





MEMB2+ 







MEMB2+ 


2 





MEMB2+ 


3 





HEMB2+ 


3 





MEMB2+ 


4 


1 


HEHB2+ 


4 


1 



UNCHANGED 



RESULT= FFFFFFFFH 



SOURCE UNCHANGED 



NAME OF SUBROUTINE? 



Notes 

1. The destination string is a fixed length. Leading zero bytes must precede 
the operands to handle the result, which may be one bit larger than either of the 
operands. 

2. This may be either a "signed" or "unsigned" subtract. If a two's comple- 
ment number is used, then the sign must be "sign extended" to the more 
significant bits of the operands. 



Program Listing 



7F00 




00100 




ORG 


7F00H 


?0522 






00110 


;«»*»*«*«#♦*##**«#####«####*###«*«##«##*#«#*»■»««###«»««## 






00120 




MULTIPLE- 


PRECISION SUBTRACT. 


SUBTRACTS TWO MULTIPLE- » 






00130 




PRECISION 


OPERANDS? ANY LENGTH. * 






00140 




INPUT: 


HL=> PARAMETER BLOCK * 






00150 


;* 




PARAM+0 ! + 1 =ADDRESS 


OF OPERAND 1 * 






00160 






PARAM+2f +3=ADDRESS 


OF OPERAND 2 « 






00170 


;* 




PARAM+4=# OF BYTES 


0-256 * 






00180 


;* 


OUTPUT: OPERAND 1 LOCATION 


HOLDS RESULT « 






00190 


!*#*#*##*#*«##*#######*#*######^ 


(•*«**#*#«#*###***##»***«## 






00200 


1 








7F00 


F5 


00210 


MPSUBT PUSH 


AF 


ISAVE REGISTERS 


7F01 


C5 


00220 




PUSH 


BC 




7F02 


D5 


00230 




PUSH 


DE 




7F03 


E5 


00240 




PUSH 


HL 




7F04 


DDES 


00250 




PUSH 


IX 




7F06 


CD7F0A 


00260 




CALL 


0A7FH 


!**#GET PB LOC'N*** 


7F09 


E5 


00270 




PUSH 


HL 


; TRANSFER TO IX 


7F0A 


DDEl 


00280 




POP 


IX 




7F0C 


DD5E00 


00290 




LD 


E, (IX+0) 


5 SET OP I LOC'N 



126 



7F0F DD5601 
7F12 DD6E02 
7F15 DD6603 
7F18 DD4E04 
7F1B 0600 



00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 



LD 

LD 

LD 

LD 

LD 

DEC 

ADD 

EX 

ADD 

EX 

LD 

INC 

OR 

LD 

SBC 

LD 

DEC 

DEC 

DJNZ 

POP 

POP 

POP 

POP 

POP 

RET 

END 



D, < IX+i ) 
L, ( IX+2) 
H, (IX+3) 
C, (IX+4) 

B,0 
BC 

HLsBC 
DE>HL 
HLsBC 

DEsHL 
B, C 
B 
A 

A, (DE) 
A, (HL) 
( DE ) , A 
HL 
DE 

MPS010 

IX 

HL 

DE 

BC 

AF 



;SET OP 



;GET # OF BYTES 
SNOW IN BC 

;#-! 

? POINT TO LAST 0P2 
;SWAP DE AND HL 
; POINT TO LAST OPl 
5 SWAP BACK 

BACK TO B 
; ORIGINAL NUMBER 



LOC'N 



7F1D 08 

7F1E 09 
7F1F EE 
7F20 09 

7F21 EE 
7F22 41 
7F23 04 
7F24 87 
7F25 lA 
7F26 9E 
7F27 12 
7F28 2B 
7F29 IB 



00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 



00430 MPS010 



; CLEAR CARRY FOR FIRST SUB 

;GET OPERAND 1 BYTE 
;SUB OPERAND 2 
; STORE RESULT 

; POINT TO NEXT 0P2 

; PO I NT TO NEXT OPl 
;L00P for N BYTES 



7F2A 10F9 
7F2C DDEl 



; RESTORE REGISTERS 



7F2E El 
7F2F Dl 
7F30 CI 
7F31 Fl 
7F32 C9 

0000 



; RETURN TO CALLING PROG 



00000 TOTAL 



ERRORS 



MPSUBT DECIMAL VALUES 



245? 197» 213? 229? 221? 229? 205? 127? 10? 229? 

221 ? 225? 221? 94? 0? 221? 86? 1? 221? 1 10? 

2? 221 ? 102? 3? 221 ? 78? 4? 6? 0? 11? 

9? 235, 9? 235? 65? 4? 183? 26? 158? IB? 

43? 27? 16? 249? 221? 225? 225? 209? 193? 241 ? 

201 



CHKSUM= 89 



System Configuration 

Model I, Model III, Model II Stand Alone. 

Description 

MSLEFT shifts a given 16-bit value left a specified number of bit positions. The 
shift performed is a "logical" shift where zeroes fill vacated bit positions on the 

right 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the number to be shifted in standard 
Z-80 16-bit format, least significant byte followed by most significant byte. The 
next byte of the parameter block contains the number of shifts to be performed, 
from 1 to 15. 



MSLEFT: MULTIPLE SHIFT 



LEFT 
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On output, the value in the first two bytes of the parameter block has been 
shifted the appropriate number of times. The count in the third byte of the 
parameter block remains unchanged. 



INPUT 

H L 



+ 



POINTER TO PARAM+0 



OUTPUT 



UNCHANGED 



PARAy+0 
+ 1 
+2 



1 6-BIT VALUE 
TO BE 
SHIFTED 



# OF SHIFTS 



PARAM+0 
+ 1 
+2 



SHIFTED 
RESULT 



UNCHANGED 



Algorithm 

The MSLEFT subroutine performs the shift by placing the number to be shifted 
in HL and the count in the B register. HL is added to itself a number of times 
corresponding to the count in the B register to effect the shift. 



Sample Calling Sequence 



NAME OF SUBROUTINE? MSLEFT 
HL VALUE? 40000 

PARAHETER BLOCK LOCATION? 40000 
PARAMETER BLOCK VALUES? 

+ 021 VALUE TO BE SHIFTED = 0000000000000001 
+ 218 8 SHIFTS 
+ 300 

MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 50000 
SUBROUTINE EXECUTED AT 50000 
INPUT: OUTPUT: 
HL= 40000 HL= 40000 

PARAM+ I PARAM+ 



PARAM+ 1 PARAM+ ' ' r RESULT^ 

PARAM+ 2 8 PARAM+ 2 8 UNCHANGED 



NAME OF SUBROUTINE? 



Notes 

1. If is specified as a shift count, 256 shifts will be done, resulting in all 
zeroes in the result. 

2. If 16 to 255 shifts are specified, the result will be all zeroes. 

3. Note that the value to be shifted is Is bytes, ms byte. 

Program Listing 

7FB0 00100 ORG 7F00H 10522 

001 10 ; #**#**##«##*##*#**#*****#*#**#«******#*##*«**#*#*«****** 



00120 ;* MULTIPLE SHIFT LEFT. ESHIFTS THE GIVEN 16-BIT VALUE * 

00130 ;* A SPECIFIED NUMBER OF SHIFTS IN LOGICAL FASHION » 

00140 INPUT: HL=>PARAMETER BLOCK * 

00150 ;* PARAM+0, +1=VALUE TO BE SHIFTED * 

00160 ?* PARAM+2=NUMBER OF SHIFTS * 

00170 ;* OUTPUT: PARAM+05+l=SHIFTED VALUE * 



00180 ! #*#*##«»*»*******##********«•##****#****************#**** 
128 







00190 


5 






7F00 


C5 


00200 


MSLEFT 


PUSH 


BC 


7F01 


E5 


00210 




PUSH 


HL 


7F02 


DDES 


00220 




PUSH 


IX 


7F04 


CD7F0A 


00230 




CALL 


0A7FH 


7F07 


E5 


00240 




PUSH 


HL 


7F08 


DDEl 


00250 




POP 


IX 










L- 1/ 


! « i 1 Y -l-OW 
1-5 \ X K > Mj 


/ r MjU 


nnA A/7) 1 


sfjsa,^ / CI 




1 n 


\ k X i 


{ ! XMJ 








L.. k/ 


P. B / T Y 4- •7' 
C' S S 1 A ~ ^. / 










Aim 


HL-. g n!.- 










H TKI7 


MQI Rl 1 £3^ 

1 lOi-lO i K.' 










LD 


\ J.A««J / 


7F19 


DD7401 


00320 




LD 




7F1C 


DDEl 


00330 


HBL040 


POP 


I X 


7F1E 


El 


00340 




POP 


HL 


7F1F 


CI 


00350 




POP 


BC 


7F20 


C9 


00360 




RET 




0000 




00370 




END 




0000E 


TOTAL 


ERRORS 









;bave registers 



;*#*GET PB LOC'N*** 
; TRANSFER TO IX 

;SET LSB OF VALUE 
■GET MSB OF VALUE 

;GET # OF SHIFTS 

;LEFT SHIFT HS BYTE 
;LOOP 'TIL DONE 

; STORE SHIFTED RESULT 

; RESTORE REGISTERS 



; RETURN TO CALLING PROS 



MSLEFT DECIMAL VALUES 



197! 229 > 221 » 229? 205) 127? 10? 229 > 221? 225 > 
221 1 110! 0? 221 > 102« 1» 221 ! 70) 2. 41s 
16) 253) 221) 117) Bi 221) 116) 1? 221) 225) 
225) 193) 201 



CHKSUM= 28 

MSRGHT: MULTIPLE SHIFT RIGHT 



System Configuration 

Model I, Model 111, Model II Stand Alone. 



Description 

MSRGHT shifts a given 16-bit value right a specified number of bit positions. 
The shift performed is a "logical" shift where zeroes fill vacated bit positions 
on the left. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the number to be shifted in standard 
Z-80 16-bit format, least significant byte followed by most significant byte. The 
next byte of the parameter block contains the number of shifts to be performed, 

from 1 to 15. 

On output, the value in the first two bytes of the parameter block has been 
shifted the appropriate number of times. The count in the third byte of the 
parameter block remains unchanged. 



INPUT 



POINTER TO PARAM+0 
1 



OUTPUT 



H 



+ 



UNCHANGED 
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MEM 1+0 
+ 1 

+2 



16-BIT VALUE 
TO BE 
SHIFTED 



# OF SHIFTS 



MEM 1+0 
+ 1 
+2 



SHIFTED 
RESULT 



UNCHANGED 



Algorithm 

The MSRGHT subroutine performs the shift by placing the number to be shifted 
in HL and the count in the B register. HL is shifted right by first shifting H with 
an SRL. This shifts H one bit position, with the carry being set by the Isb of H. L 
is then shifted right by an RR, which shifts L to itself and places the previous 
value of the carry into the msb of L. This shift sequence is done a number of 
times corresponding to the count in the B register. 

Sample Calling Sequence 



j^OFgSUBROyilNE? MSRGHT 

PARAMETER BLOCK LOCATION? 50000 
PARAMETER BLOCK VALUES? 

+ 2 32768 VALUE TO BE SHIFTED = 1000000000000000 
+ 2 1 15 15 SHIFTS 

+ 300 

MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 44444 
SUBROUTINE EXECUTED AT 44444 
INPUT: OUTPUT: 
HL= 50000 HL= 50000 

PARAM+ PARAM+ 1 

PARAM+ 1 128 PARAM+ 1 
PARAM+ 2 15 PARAM+ 2 15 



RESULT = 0000000000000001 
UNCHANGED 



NAME OF SUBROUTINE? 

Notes 

1. If is specified as a shift count, 256 shifts will be done, resulting in al 
zeroes in the result. 

2. If 16 to 255 shifts are specified, the result will be all zeroes. 
Program Listing 



7F00 



7F00 C5 
7F01 E5 
7F02 DDES 
7F04 CD7F0A 



00100 
00110 

00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 



ORG 7F00H ; 0522 

;* MULTIPLE SHIFT RIGHT. SHIFTS THE GIVEN 16-BIT VALUE * 

A SPECIFIED NUMBER OF SHIFTS IN LOGICAL FASHION * 

;* INPUT: HL=> PARAMETER BLOCK * 

;* PARAM+0f +1=VALUE TO BE SHIFTED * 

PARAM+3=NUMBER OF SHIFTS * 

;* OUTPUT: PARAM+0i+l=SHIFTED VALUE * 
; **#*««**»*«#**«#«***##*##***##*#**#*##*#♦##*#«•*****■«#**# 
; 



MSRGHT 



PUSH 
PUSH 
PUSH 
CALL 



EC 
HL 
IX 

0A7FH 



;SAVE REGISTERS 



;#*«GET PB LOC'N*** 



130 



7F07 E5 
7F08 DDEl 
7F0A DD6E00 
7F0D DD6601 
7F10 DD4602 
7F13 CB3C 
7FI5 CBID 
7F17 10FA 
7F19 DD7500 
7F1C DD7401 
71 IF DDEl 
7F2.t El 
7F22 CI 
7F23 C9 
0000 

00000 TOTAL 



ERRORS 



00240 
00250 
00260 
00270 
00280 



00320 HSR030 
00330 

00340 MSR040 



00300 
00310 



00290 MSR010 



00350 

00360 
00370 

00380 



PUSH 

POP 

LD 

LD 

LD 

SRL 

RR 

DJNZ 

LD 

LD 

POP 

POP 

POP 

RET 

END 



HL 
IX 



L? ( IX+0) 
H, ( IX+1 ) 
E>., <IX + 2) 



H 
L 



MSR010 

( IX+0) jL 
< IX+1 ) >H 



IX 
HL 
BC 



!SET LSB OF VALUE 
;SET MSB OF VALUE 
;SET # OF SHIFTS 



; TRANSFER TO IX 



; STORE SHIFTED RESULT 



; RESTORE REGISTERS 



; RETURN TO CALLIN6 PROS 



; RIGHT SHIFT HS BYTE 
; RIGHT SHIFT LS BYTE 
;L00P 'TIL DONE 



HSRGHT DECIMAL VALUES 



197! 229i 221 ! 229. 205^ 127) 10, 229? 221 > 225, 
221? 110, 0) 221s 102) l5 221, 70, 2, 203, 
60, 203, 29, 16, 250, 221, 117, 0, 221, 116, 
1, 221, 225, 225, 193, 201 



CHKSUH= 223 



System Configuration 
Model I, Model III 

Description 

MUNOTE outputs a musical note through the cassette port. The cassette jack 
output may be connected to a small, inexpensive amplifier for music, audio 
sound effects, or warning tones. The tone ranges over seven octaves starting 
with A three octaves below middle A and ending with C#, three octaves 
above middle C#. The duration of the tone may be specified by the user in 
1/1 6th second increments. Pitches and durations are approximate! 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the address of MUNOTE in standard 
Z-80 address format, least significant byte followed by most significant byte. 
This address may be easily picked up from the USR call if MUNOTE is called 
from BASIC or from the assembly-language CALL address. It is necessary so that 
the code in MUNOTE is completely relocatable. The next byte of the parameter 
block contains the note value of through 83. This note value corresponds to 
musical notes as shown in the table below. The next byte of the parameter 
block specifies the duration of the note in 1/1 6th second increments. A value of 
3, for example, would be 3/1 6ths second. 
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On output, the contents of the parameter block remain unchanged and the note 
has been played. 

INPUT OUTPUT 
H L H L 



POINTER TO PARAM+0 



4- 



UNCHANGED 



PARAM+0 



-1 



+2 

+3 



LOCATION 

OF 
MUNOTE 



NOTE VALUE 



DURATION IN 
1/16 NOTES 



PARAM+0 
+ 1 
+2 
+3 



-- UNCHANGED -- 



UNCHANGED 



UNCHANGED 



Table of values for musical notes. 



VAL 


NOTE 


FREQUENCY 




TABLE 


VALUES 







A 


27. 5 


122> 


5 


1 , 





1 


A# 


29. 1352 


43s 


5 


1 > 





2 


B 


30. 8677 


225 » 


4 


1 5 





3 


C 


32. 7032 


154» 


4 


2i 





4 


C# 


34. 6478 


BSs 


4 


2» 





5 


D 


36. 7081 


265 


4 


.— ( 





6 


D# 


38. 8909 


223 s 


3 


2, 





7 


E 


41 . 2035 


167> 


3 


2, 





8 


F 


43. 6535 


1 14) 


3 


2, 





9 


F# 


46. 2493 


65 » 


3 


2, 





10 


6 


48. 9995 


18» 


3 


3, 





1 1 


G# 


51 . 9131 


230 J 


2 


3 s 





12 


A 


55 


188, 


2 


3, 





13 


A# 


58.2705 


148, 


2 


3, 





14 


B 


61 . 7355 


111, 


2 


3, 





15 


C 


65 . 4064 


76> 


2 


4, 





16 


C# 


69.2957 


43, 


2 


4, 





17 


D 


73. 4163 


12, 


2 


4, 





IB 


D# 


77. 7818 


238, 




4, 





19 


E 


82. 407 


210, 




5, 





20 


F 


87. 3071 


184, 




5 , 





21 


F# 


92. 4987 


159, 




5 ! 





22 


G 


97. 999 


136, 




6, 









1 03 . 826 


114, 




6, 







A 
Pt 


lira 
I 1 till 




1 


/ 

, 


UJ 


25 


A# 


116. 541 


73, 


1 


7, 





26 


B 


123.471 


54, 


1 


7, 





27 


C 


130.813 


37, 


1 


8, 





28 


C# 


138,592 


20, 


1 


B, 





29 


D 


146.833 


5, 1 




9, 





30 


D# 


155.564 


246, 





9, 





31 


E 


164.814 


232, 





10! 





32 


F 


174.614 


219, 





10! 





33 


F# 


184. 997 


206, 





1 1 





34 


G 


195.998 


195, 





12 





35 


G# 


207. 653 


184, 





12! 





36 


A 


220 


173, 





13 





37 


At 


233.082 


163, 





14! 





38 


B 


246.942 


154, 





15! 





39 


C 


261.626 


145, 





16 





40 


C# 


277. 183 


137, 





17 





41 


D 


293.665 


129, 





I81 





42 


D# 


311. 128 


122, 





19, 





43 


E 


329. 628 


115, 





20 





44 


F 


349. 229 


108» 





21 





45 


F# 


369.995 


102, 





23 





46 


G 


391.996 


96, 





24 





47 


G# 


415. 306 


91 , 





25 






132 



48 


A 


440, 001 


86 J 





275 





49 


A# 


466. 165 


81 f 





295 





50 


B 


493. 884 


76? 





305 





51 


C 


523. 252 


72 > 





325 





52 


C# 


554. 367 


675 





345 





53 


D 


587. 331 


64 1 





36» 





54 


D# 


622.256 


605 





38s 





55 


E 


659. 257 


565 





41 5 





56 


F 


698. 458 


535 





435 





57 


F« 


739. 991 


505 





46 5 





5B 


S 


783.993 


47? 





48, 





59 


G# 


830. 612 


44, 





5l5 





60 


A 


880. 003 


429 





55 5 





61 


A« 


932. 33 


39? 





585 





62 


B 


987, 769 


375 





6l! 





63 


C 


1046. 51 


35 5 





65 5 





64 


C# 


1108.73 


335 





69! 





65 


D 


1 174. 66 


31 5 





735 





66 


D# 


1244. 51 


29? 





775 





67 


E 


1318.51 


27! 





82! 





68 


F 


1396. 92 


25 5 





875 





b'i 


F# 


1479. 98 


24 5 





925 





70 


S 


1567.99 


225 





97! 





71 


G# 


1661 .22 


21 5 





103? 





72 


A 


1760. 01 


205 





1105 





73 


A# 


1864. 66 


185 





116! 





74 


B 


1975.54 


175 





123! 





75 


C 


2093. 01 


165 





130! 





76 


C# 


2217,47 


15! 





138! 





77 


D 


2349. 33 


14! 





146! 





78 


D# 


2489.03 


13! 





155! 





79 


E 


2637 . 03 


12! 





1645 





80 


F 


2793.84 


12! 





174! 





81 


F# 


2959.97 


Il5 





184! 





82 


G 


3135.98 


105 





195! 





83 


G# 


3322.45 


95 





207! 






Algorithm 

Operation of MUNOTE is very similar to TONOUT. MUNOTE, however, picks 
up a frequency count and duration count from the MUNTB table. This table is 
referenced to the note value in the parameter block. The note value of 
through 83 is multiplied by 4, added to the starting address of MUNOTE from 
the parameter block, and then added to the displacement of the table, MUNTB, 
to point to the table entry. The frequency count and duration count from 
MUNTB are then picked up and put into DE and BC, respectively. The duration 
count is multiplied by the number of 16ths specified in the parameter block, 
and the final duration count is put into IX. From this point on, the code is 
almost identical to the TONOUT code. 

MUNOTE uses two loops. The outer loop (from MUN010) produces the num- 
ber of cycles equal to the duration count. The inner loop is made up of two 
parts. The MUN020 portion outputs an "on" pulse from the cassette output. 
The MUN030 portion turns off the cassette port for the same period of time. 
Both portions use the frequency count from the DE register for a timing loop 
count. 

The MUN010 loop puts the DE frequency count into HL and turns on the 
cassette (OUT OFFH,A). The count in HL is then decremented by one in the 
MUN020 timing loop. At the end of the loop, the count is again put into HL 
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from DE, the cassette is turned off, and the count is decremented by one in the 
MUN030 timing loop. After this loop, the duration, or cycle, count in IX is 
decremented by one and if it is not negative, a jump is made back to MUN010 
for the next cycle. 

Sample Calling Sequence 

NAME OF SUBROUTINE? MUNOTE 
HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 
PARAMETER BLOCK VALUES? 



+ 







37000 


START OF MUNOTE 


+ 




1 


60 


FIFTH OCTAVE, A 


+ 


3 


1 


2 


1/8TH SECOND 


+ 


4 











MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 37000 
SUBROUTINE EXECUTED AT 37000 
input: output: 
HL= 40000 HL= 40000 

PARAM+ 136 PARAM+ 136 
PARAM+ 1 144 PARAM+ 1 144 
PARAM+ 2 60 PARAM+ 2 60 
PARAM+ 3 2 PARAM+ 3 2 

NAME OF SUBROUTINE? 
Notes 

1. The table values are for a standard TRS-80 Model I clock frequency. They 
must be recomputed for clock speed upgrades or adjusted for a Model III. 
Multiply the frequency values by 1 .143 and divide the duration values by 1 .143 
for a Model III. 

2. Lower octave durations and higher octave frequencies are approximate. 



Program Listing 



7F00 




00100 


0R6 


7F00H 5 0522 






001 10 


; ##♦«*###««##***•*###***«**#««*#*#*«♦*****#***«**»#«#*#**» g 






00 1 20 


!* MUSICAL NOTE ROUTINE. OUTPUTS MUSICAL NOTE THROUGH « 1 






00130 


CASSETTE 


PORT. ♦ 1 






00140 


;* INPUT: 


HL=> PARAMETER BLOCK * 






00150 




PARAM+0, +1=L0CATI0N OF MUNOTE * 






00160 


;* 


PARAM+2=N0TE VALUE, THROUGH 83 * 1 






00170 


; « 


PARAM+3=DURATI0N IN 1/16TH NOTES * 1 






00180 


; # OUTPUT 


: NOTE OUTPUT TO CASSETTE PORT * 






00190 


; ##*###«*«#»«*##♦##♦»«♦#****♦*»*#*♦#****♦♦***«»»*«*«*#»** 






00200 


; 




7F00 


F5 


00210 


MUNOTE PUSH 


AF ;SAVE REGISTERS 1 


7F01 


C5 


00220 


PUSH 


BC ' 


7F02 


D5 


00230 


PUSH 


DE 


7F03 


E5 


00240 


PUSH 


HL 1 


7F04 


DDES 


00250 


PUSH 


IX 1 


7F06 


FDE5 


00260 


PUSH 


lY ■ 


7F08 


CD7F0A 


00270 


CALL 


0A7FH ;#*#SET PB LOC N««* 


7F0B 


E5 


00280 


PUSH 


HL ; TRANSFER TO IX . 


7F0C 


DDEl 


00290 


POP 


IX 1 


7F0E 


DD6E02 


00300 


LD 


L, ( IX+2) ;SET NOTE VALUE 1 


7F11 


2600 


00310 


LD 


H, ; NOW IN HL 
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7F13 


29 


00320 




ADD 


HLjHL 


; INDEX*2 


7F14 


29 


00330 




ADD 


HL5HL 


; INDEX»4 


7F15 


DD5E00 


00340 




LD 


E, < IX+0) 


5 PUT MUNOTE BASE IN EC 


7F18 


DD5601 


00350 




LD 


D, i IX+1 > 




7F1B 


19 


00360 




ADD 


HL, DE 


;BASE PLUS INDEX 


7F1C 


115F00 


00370 




LD 


DE> HUNTB 


; TABLE DISPLACEMENT 


7F1F 


19 


00380 




ADD 


HLsDE 


; POINT TO ENTRY 


7F2B 


E5 


00390 




PUSH 


HL 


; TRANSFER ENTRY LOC TO lY 


7F21 


FDEl 


00400 




POP 


lY 




7F23 


FD5E00 


00410 




LD 


E> ( IY+0) 


;PUT FREQ COUNT IN DE 


7F26 


FD5601 


00420 




LD 


D» ( IY+1 ) 




7F29 


FD4E02 


00430 




LD 


Cs ( IY+2) 


; PUT DUR COUNT IN BC 


7F2C 


FD4603 


00440 




LD 


B, < IY+3) 




7F2F 


210000 


00450 




LD 


HLsO 


INITIALI ZE DURATION 


7F32 


DD7E03 


00460 




LD 


A, ( IX+3) 


;GET DURATION IN 1/16THS 


7F35 


09 


00470 


MUN005 


ADD 


HL> BC 


; CHANGE TO SPEC DURATION 


7F36 


3D 


00480 




DEC 


A 


; DECREMENT 1/16THS CNT 


7F37 


20FC 


00490 




JR 


NZ»HUN005 


;LOOP TIL DONE 


7F39 


E5 


00500 


MUN008 


PUSH 


HL 


; TRANSFER NEW CNT TO IX 


7F3A 


DDEl 


00510 




POP 


IX 




7F3C 


01FFFF 


00520 




LD 


BC,-1 


;FOR TIGHT LOOP 


7F3F 


6B 


00530 


MUN010 


LD 


L,E 


!PUT FRES COUNT IN HL 4 


7F40 


62 


00540 




LD 


H, D 


54 


7F41 


3E01 


00550 




LD 


As 1 


IHAXIMUM POSITIVE 7 


7F43 


D3FF 


00560 




OUT 


<0FFH) ,A 


; OUTPUT 11 


7F45 


09 


00570 


MUN020 


ADD 


HLjBC 


; COUNT- 1 11 


7F46 


DA457F 


00580 




JP 


C,MUN020 


;LOOP FOR 1/2 CYCLE 7/ 


7F49 


6B 


00590 




LD 


L»E 


;PUT FREQ COUNT IN HL 4 


7F4A 


62 


00600 




LD 


H, D 


;4 


7F4B 


3E02 


00610 




LD 


A, 2 


; MAXIMUM NEGATIVE 7 


7F4D 


D3FF 


00620 




OUT 


< 0FFH ) , A 


5 OUTPUT 1 1 


7F4F 


09 


00630 


MUN030 


ADD 


HL5BC 


; COUNT- 1 1 1 


7F5B 


3SFD 


00640 




JR 


CiHUN030 


;L00P FOR 1/2 CYCLE 7/ 


7F52 


DD09 


00650 




ADD 


1X5 BC 


; DECREMENT DUR COUNT 15 


7F54 


38E9 


00660 




JR 


CMUNBia 


;L00P IF NOT DONE 7/12 


7F56 


FDEl 


00670 




POP 


lY 


! RESTORE REGISTERS 


7F5B 


DDEl 


00680 




POP 


IX 




7F5A 


El 


00690 




POP 


HL 




7F5B 


Dl 


00700 




POP 


DE 




7F5C 


CI 


00710 




POP 


BC 




7F5D 


Fl 


00720 




POP 


AF 




7F5E 


C9 


00730 




RET 




; RETURN TO CALLING PROG 


005F 




00740 


MUNTB 


EOU 


*-MUNOTE 








00750 


! MUSICAL NOTE 


TABLE, ENTRY+0> 


+1 IS FREQUENCY COUNT. 






00760 


; ENTRY+25+3 IS 


DURATION COUNT 


FOR 1/16THS, 


0000 




00770 




END 







00000 TOTAL ERRORS 



MUNOTE DECIMAL VALUES 



2451 197 5 213; 229? 221 j 229? 253) 229? 205 5 127, 

10! 229! 221 ! 225! 221 ! 110! 2* 38? 0? 41 ! 

4l! 22l! 94! 0! 22l! B6! 1, 25? 17! 95! 

0! 25! 229! 253! 225? 253! 94? 0! 253^ 861 

I1 2535 78! 2i 253i 70! 3! 33) 05 0! 

22I5 126! 3) 9! 61) 32) 252? 229! 22l! 225! 

l! 2555 255! 107) 98) 62) I5 21 l! 255! 9) 

2IS5 695 127) 107) 985 62! 25 211) 255) 9) 

565 2535 221 ! 95 56) 233 i 253) 225 5 221) 225) 

225! 209) 193 I 241) 201 



135 



MVDIAG: MOVING DOT DIAGONAL 



System Configuration 
Model I, Model III. 

Description 

MVDIAG moves a "dot" along a diagonal line with a varying time delay. This 
effect can be used for games or other applications. The dot may move along the 
diagonal from "bottom" to "top" of the screen, or from "top" to "bottom." 
The amount of time that the dot remains in any position can be adjusted under 
program control. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
byte of the parameter block contains the starting x character position of the dot, 
from to 63. The next byte of the parameter block contains the starting line 
number y of the dot, from to 15. The next byte of the parameter block con- 
tains the number of character positions of travel. This will be a maximum of 16 
for a diagonal that starts 16 character positions or greater from the side of the 
screen. The next byte of the parameter block contains the time delay value 
from 1 to 255 or (256). One is a minimum time delay, while 255 and (256) 
are maximum time delays. The next byte of the parameter block contains the 
direction of travel — is up to the right, 1 is up to the left, 2 is down to the right, 
and 3 is down to the left. 

On output, the parameter block contents are unchanged. The dot has moved 
over the specified diagonal. 



INPUT 



OUTPUT 



POINTER TO PARAM+0 



UNCHANGED 



PARAM+0 

+ 1 
+2 
+3 
+4 



STARTING X 



STARTING Y 



LENGTH OF 
TRAVEL 



TIME DELAY 



DIRECTION 



PARAM+0 

+ 1 
+2 



-7 



+3 
+4 



UNCHANGED 



UNCHANGED 



UNCHANGED 



UNCHANGED 



UNCHANGED 



Algoritlim 

The MVDIAG subroutine performs the move by computing the starting address 
of the dot in video display memory, by computing the "increment" to add to 
the address to obtain the next dot position, and by controlling the move with a 
count of the number of character positions involved. 

First, the line number value is picked up from the parameter block. This is 
multiplied by 64 to find the number of bytes (displacement) from the start of 
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video display memory. This value is added to 3C00H to find the actual video 
memory address for the line start. This value is added to the character position 
of the start from the parameter block to find the starting position in video 
display memory. 

Next, a test is made of the direction of travel. Based on the direction, an incre- 
ment value of — 41 H (up to left), — 3FH (up to right), 3FH {down to left), or 41 H 
(down to right) is found. This represents the number to be added to the last 
video display memory location to find the next video display memory location 
for the dot. 

The code at MVD020 is the main loop of the subroutine. A byte of OBFH is 
stored to the current video display memory position. A time delay is then done 
by decrementing the count value in the C register. After the delay, a byte of 80 H 
is stored to "erase" the last dot. 

The increment value is then added to the current video display memory posi- 
tion to find the next location of the dot. A count of the number of character 
positions involved is then decremented, and a jump is made to MVD020 if the 
count is not zero. 



Sample Calling Sequence 



NAME OF SUBROUTINE? HVDIAG 
HL VALUE? 43333 

PARAMETER BLOCK LOCATION? 43333 
PARAMETER BLOCK VALUES? 

X = 8 
Y= 15 

LENGTH = 16 (END X, Y = 24, 0) 
MAXIMUM DELAY 
UP TO RIGHT 

MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 38888 
SUBROUTINE EXECUTED AT 38888 



+ 





1 


8 


+ 


1 


1 


15 


+ 




1 


16 


+ 


3 


1 





+ 


4 


1 





+ 


5 









INPUT: 

HL= 43333 
PARAM+ 
PARAM+ 1 
PARAM+ 2 
PARAM+ 3 
PARAM+ 4 



8 
15 
16 




OUTPUT: 
HL= 43333 
PARAM+ 
PARAM+ 1 

PARAM+ 2 
PARAM+ 3 
PARAM+ 4 



8 

15 

16 







-UNCHANGED 



NAME OF SUBROUTINE? 



Notes 

1. The program may "bomb" the system if the length of travel goes beyond 
video display memory boundaries or if x or y are incorrect values. Maximum 
length is 16. 

2. Add additional time wasting instructions as required. 

3. Delete time wasting instructions as required. Substituting NOPs (zeroes) 
will shorten the delay. 

4. Speed at maximum delay is about 85 character positions per second. 
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Program Listing 



7F00 




00100 




ORG 


7F00H 


",0522 








001 10 


; ##***#*###***###**##*****##»«#*****###*»«*«****«******** 






00120 


;« MOVING DOT 


DIAGONAL. MOVES 


DOT ALONG DIAGONAL LINE 


* 






00130 


5* WITH 


VARYING TIME DELAY 




♦ 






00140 


;* INPUT: 


HL=> PARAMETER BLOCK 


* 






00150 


; * 




PARAM+0=STARTIN6 


CHAR POS'N (X) 








00160 


; * 




PARAM+1=STARTING 


LINE # (Y) 


* 






00170 


;* 




PARAM+2=LENGTH OF 


TRAVEL IN CHAR POSNS 


* 






00180 


; * 




PARAM+3=TIME DELAY, 1=MIN 255/0=MAX 


« 






00190 


;* 




PARAM+4=0 IS UP TO RIGHT, 1 IS UP TO LEFT 


♦ 






00200 


; # 




2 IS DOWN 


TO RIGHT, 3 IS DOWN TO 


* 






00210 


; * 




LEFT 




♦ 






00220 


;« output: 


DOT MOVES ALONG DIAGONAL LINE 


# 






00230 


5 ##*****##**#«**##****«**♦#****##***#******************** 






00240 












7F00 


F5 


00250 


MVDIAG 


PUSH 


AF 


; SAVE REGISTERS 




7F01 


C5 


00260 




PUSH 


BC 






7F02 


D5 


00270 




PUSH 


DE 






7F03 


E5 


00280 




PUSH 


HL 






7F04 


DDES 


00290 




PUSH 


IX 






7F06 


FDE5 


00300 




PUSH 


lY 






7F08 


CD7F0A 


00310 




CALL 


0A7FH 


;*##GET PB LOC'N*** 




7F0B 


E5 


00320 




PUSH 


HL 


; TRANSFER TO IX 




7F0C 


DDEl 


00330 




POP 


IX 






7F0E 


0606 


00340 




LD 


B, 6 


; ITERATION COUNT 




7F10 


DD6E01 


00350 




LD 


L, ( IX+1 ) 


;GET LINE # 




7F13 


2600 


00360 




LD 


H, 


;NOW IN HL 




7F15 


29 


00370 


MVD010 


ADD 


HL,HL 


;LINE« * 64 




7F16 


10FD 


00380 




DJNZ 


MVD010 


SLOOP 'TIL DONE 




7F18 


01003C 


00390 




LD 


BC,3C00H 


; START OF SCREEN 




7F1B 


09 


00400 




ADD 


HL,BC 


;FIND LOC OF LINE START 




7F1C 


DD4E00 


00410 




LD 


C, ( IX+0) 


;GET CHAR POSN (X) 




7F1F 


0600 


00420 




LD 


B,0 


; NOW IN BC 




7F21 


09 


00430 




ADD 


HL,BC 


;FIND ACTUAL LOC'N 




7F22 


DD4602 


00440 




LD 


B, ( IX+2) 


;eET LENGTH OF TRAVEL 




7F25 


DD4E04 


00450 




LD 


C, ( IX+4) 


■,GET DIRECTION CODE 




7F2S 


CB49 


00460 




BIT 


1 , C 


;TEST DIRECTION 




7F2A 


1 IBFFF 


00470 




LD 


DE,-41H 


; INCREMENT FOR NEXT DOT 




7F2D 


2803 


00480 




JR 


Z,MVD015 


!G0 IF UP 




7F2F 


113F00 


00490 




LD 


DE,3FH 


; INCREMENT FOR DOWN 




7F32 


CB41 


00500 


MVD015 


BIT 


0, C 


;test right/left 




7F34 


2002 


00510 




JR 


NZ,MVD020 


;go if left 




7F36 


13 


00520 




INC 


DE 


; RIGHT 




7F37 


13 


00530 




INC 


DE 






7F3S 


36BF 


00540 


MVD020 


LD 


( HL) , 0BFH 


;SET CHAR POS TO ALL 




7F3A 


DD4E03 


00550 




LD 


C, ( IX+3) 


;GET DELAY COUNT 




7F3D 


00 


00560 


MVD030 


DEC 


C 


; DECREMENT COUNT 




7F3E 


FD2A0000 


00570 




LD 


lY, (0) 


; WASTE TIME 




7F42 


FD2A0000 


00580 




LD 


lY, (0) 






7F46 


FD2A0000 


00590 




LD 


lY, (0) 






7F4A 


FD2A0000 


00600 




LD 


lY, (0) 






7F4E 


20ED 


00610 




JR 


NZ,MVD030 


; DELAY LOOP 




7F50 


3680 


00620 




LD 


(HL) , 80H 


; RESET CHAR POS 




7F52 


19 


00630 




ADD 


HL,DE 


; POINT TO NEXT POSITION 


7F53 


10E3 


00640 




DJNZ 


MVD020 


SLOOP FOR LENGTH OF LINE 


7F55 


FDEl 


00650 




POP 


lY 






7F57 


DDEl 


00660 




POP 


IX 


! RESTORE REGISTERS 




7F59 


El 


00670 




POP 


HL 






7F5A 


Dl 


00680 




POP 


DE 






7F5B 


CI 


00690 




POP 


BC 






7F5C 


Fl 


00700 




POP 


AF 






7F5D 


C9 


00710 




RET 




; RETURN TO CALLING PROG 




0000 




00720 




END 









00000 TOTAL ERRORS 



MVDIAG DECIMAL VALUES 



245 5 197, 213 i 229, 22 1» 229, 2535 229, 205 5 127i 

105 2295 221; 225) 6? 6) 221, 110? 1> 385 

05 41 5 165 2535 l5 05 605 9) 2215 785 

05 65 05 95 2215 705 25 221? 785 4, 

203! 73, 175 1915 2555 40? 3, 17) 63? 0, 

2035 655 325 25 19> 195 54? 1915 2215 70? 

35 135 2535 425 05 05 2535 42? 05 05 

2535 425 05 05 2535 42? 0? 05 325 2375 

54; 1285 255 165 227? 2535 2255 2215 2255 2255 

2095 1935 241, 201 



CHKSUM= 175 
MVHORZ: MOVING DOT HORIZONTAL 

System Configuration 
Model I, Model III. 

Description 

MVHORZ moves a "dot" along a horizontal line with a varying time delay. 
This effect can be used for games or other applications. The dot may move 
along the horizontal line from right to left, or from left to right, on the screen. 
The amount of time that the dot remains in any position can be adjusted under 
program control. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
byte of the parameter block contains the starting x character position of the dot, 
from to 63. The next byte of the parameter block contains the starting line 
number y of the dot, from to 1 5. The next byte of the parameter block con- 
tains the number of character positions of travel. This will be a maximum of 64 
for horizontal travel that starts at a right or left edge of the screen. The next byte 
of the parameter block contains the time delay value from 1 to 255 or (256). 
One is a minimum time delay, while 255 and (256) are maximum time delays. 

On output, the parameter block contents are unchanged. The dot has moved 
over the specified horizontal line. 



INPUT 



OUTPUT 



H 



POINTER TO PARAM+0 
1 



UNCHANGED 



PARAM+0 
+ 1 
+2 
+3 



STARTING X 



STARTING Y 



LENGTH 

(-64TO+64) 
TIME DELAY 
COUNT 



PARAM+0 
+ 1 
+2 
+3 



UNCHANGED 



UNCHANGED 



UNCHANGED 



UNCHANGED 
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Algorithm 



The MVHORZ subroutine performs the move by computing the starting ad- 
dress of the dot in video display memory, by finding the direction of travel, and 
by controlling the move with a count of the number of character positions 
involved. 

First, the line number value is picked up from the parameter block. This is 
multiplied by 64 to find the number of bytes (displacement) from the start of 
video display memory. This value is added to 3C00H to find the actual video 
memory address for the line start. This value is added to the character position 
of the start from the parameter block to find the starting position in video 
display memory. 

Next, a test is made of the direction of travel. Based on the direction, a "move 
right" code segment (MVH040) or a "move left" code segment {MVH020) is 
entered. Both segments are very similar, except that the "move right" incre- 
ments the next character position pointer, while the "move left" decrements 
the next character position pointer. 

In each code segment, a byte of OBFH is stored to the current video display 
memory position. A time delay is then done by decrementing the count value 
in the C register. After the delay, a byte of 80H is stored to "erase" the last dot. 

The current video display memory position in HL is then incremented or decre- 
mented to find the next location of the dot. The count of the number of charac- 
ter positions involved is then decremented, and a jump is made to MVH020 or 
MVH040 if the count is not zero. 

Sample Calling Seqence 

NAME OF SUBROUTINE? MVHORZ 
HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 
PARAMETER BLOCK VALUES? 
+ 1 X = 
+ 1 1 8 Y=8 

+ 2 1 64 LENGTH = 64 (END X, Y = 64, 8), RIGHT 
+ 310 MAXIMUM DELAY 

+ 400 

MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 37000 
SUBROUTINE EXECUTED AT 37000 



INPUT: 






OUTPUT: 




HL= 40C 


500 




HL= 40000 




PARAM+ 








PARAM+ 





PARAM+ 


1 


8 


PARAM+ 1 


8 


PARAM+ 




64 


PARAM+ 2 


64 


PARAM+ 


3 





PARAM+ 3 






NAME OF SUBROUTINE? 

Notes 

1. The program may "bomb" the system if the length of travel goes beyond 
video display memory boundaries. Maximum length is —64 or -1-64. 
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2. The program may "bomb" the system if the x and y coordinates are im- 
properly specified. 

3. Use additional time-wasting instructions as required. 

4. Delete time-wasting instructions as required. NOPs (all zeroes) may be 
substituted to shorten delay times. 

5. Speed at maximum delay is about 85 character positions per second. 
Program Listing 

71- 00 00100 ORG 7F00H -71522 

001 10 ; »**#*♦##****##*#*♦**##********#«***♦****#****#«♦*******# 







00120 


;* MOVING DOT 


HORIZONTAL. 


MOVES 


DOT ALONG HORIZONTAL 


* 






00130 


;* LINE WITH 


VARYING TIME 


DELAY 




* 






00140 


; « 


input: 


HL=> PARAMETER BLOCK 


* 






00150 


; ♦ 




PARAM+0=STARTING CHAR POS'N (X) 


* 






00160 


; * 




PARAM+1=STARTING LINE # ( Y) 








00170 


; ♦ 




PARAM+2=LENeTH OF 


TRAVEL IN CHAR POSNS 


* 






00180 


; * 




+ IS 


TO RIGHT, - IS TO LEFT 


* 






00190 


; ♦ 




PARAM+3=TIME 


DELAY 


, 1=MIN 255/0=MAX 


* 






00200 


! * 


output: 


DOT MOVES ALONG LINE 


# 






00210 








00220 


t 












7F00 


F5 


00230 


MVHORZ 


PUSH 


AF 




;SAVE REGISTERS 




7F0,1 


C5 


00240 




PUSH 


BC 








7F02 


E5 


00250 




PUSH 


HL 








7F03 


DDE5 


00260 




PUSH 


IX 








7F05 


FDE5 


00270 




PUSH 


lY 








7F07 


CD7F0A 


00280 




CALL 


0A7FH 




;***GET PB LOC'N*** 




7F0A 


E5 


00290 




PUSH 


HL 




; TRANSFER TO IX 




7F0B 


DDEl 


00300 




POP 


IX 








7F0D 


0606 


00310 




LD 


6,6 




ITERATION COUNT 




7F0F 


DD6E01 


00320 




LD 


L, ( IX+1 ) 




; GET LINE # 




7F12 


2600 


00330 




LD 


H5 




;NOW IN HL 




7F14 


29 


00340 


MVH010 


ADD 


HLiHL 




;LINE# * 64 




7F15 


10FD 


00350 




DJNZ 


MVH010 




;L00P 'TIL DONE 




7F.17 


01003C 


00360 




LD 


BC, 3C00H 




; START OF SCREEN 




7F1A 


09 


00370 




ADD 


HL, BC 




;FIND LOC of LINE START 


7F1B 


DD4E00 


00380 




LD 


C, ( IX+0) 




;GET CHAR POSN (X) 




7F1E 


0600 


00390 




LD 


B,0 




; NOW IN BC 




7F20 


09 


00400 




ADD 


HL, BC 




;FIND ACTUAL LOC'N 




7F21 


DD4602 


00410 




LD 


B, ( IX+2) 




;GET LENGTH OF TRAVEL 




7F24 


CB78 


00420 




BIT 


7,B 




; TEST SIGN 




7F26 


2823 


00430 




JR 


Z, MVH040 




;G0 if RIGHT 




7F2S 


78 


00440 




LD 


A, B 




;left 




7F29 


ED44 


00450 




NEG 






!FIND ABSOLUTE VALUE 




7F2B 


47 


00460 




LD 


B, A 




;back to b for djnz 




7F2C 


36BF 


00470 


MVH020 


LD 


( HL ) , 0BFH 




;SET CHAR POS TO ALL 


ON 


7F2E 


DD4E03 


00480 




LD 


C, ( IX+3) 




;GET DELAY COUNT 




7F31 


0D 


00490 


MVH030 


DEC 


C 




; DECREMENT COUNT 




7F32 


FD2A0000 


00500 




LD 


lY, (0) 




;WASTE TIME 




7F36 


FD2A0000 


00510 




LD 


lY, (0) 








7F3A 


FD2A0000 


00520 




LD 


lY, (0) 








7F3E 


FD2A0000 


00530 




LD 


lY, (0) 








7F42 


20ED 


00540 




JR 


NZ,MVH030 




; DELAY LOOP 




7F44 


3680 


00550 




LD 


(HL) , 80H 




; RESET CHAR POS 




7F46 


2B 


00560 




DEC 


HL 




; POINT TO NEXT POSN 




7F47 


.t0E3 


00570 




DJNZ 


MVH020 




SLOOP FOR LENGTH OF 


LINE 


7F49 


IBID 


005B0 




JR 


MVH090 




;G0 TO CLEAN UP 




7F4B 


36BF 


00590 


MVH040 


LD 


(HL) , 0BFH 




; SET CHAR POS TO ALL 


ON 


7F4D 


DD4E03 


00600 




LD 


C, ( IX+3) 




;GET DELAY COUNT 




7F50 


0D 


00610 


MVH050 


DEC 


C 




; DECREMENT COUNT 




7F51 


FD2A0000 


00620 




LD 


lY, (0) 




; WASTE TIME 




7F55 


FD2A0000 


00630 




LD 


lY, (0) 









7F59 


FD2A0000 


00640 


LD 


lY, (P5^ 


7F5D 


FD2AB000 


00650 


LD 


lY, (0) 


7F61 


20ED 


00660 


JR 


NZ,MVH050 ; DELAY LOOP 


7F63 


3680 


00670 


LD 


(HL)!80H ; RESET CHAR POS 


7F65 


23 


00680 


INC 


HL ; POINT TO NEXT POSN 


7F66 


10E3 


00690 


DJNZ 


MVH04B ;LOOP FOR LENGTH OF LINE 


7F68 


FDEl 


00700 


MVH090 POP 


lY 1 RESTORE REGISTERS 


7F6A 


DDEl 


00710 


POP 


IX 


7F6C 


El 


B072B 


POP 


HL 


7F6D 


Ci 


00730 


POP 


BC 


7F6E 


Fl 


00740 


POP 


AF 


7F6F 


C9 


00750 


RET 


; RETURN TO CALLING PROG 


0000 




00760 


END 




0000e 


TOTAL ERRORS 












MVHORZ DECIMAL 


VALUES 








245 5 197, 229, 


22 1 , 229 , 253, 229 , 205 , 127, 10, 








229, 221, 225, 


6, 6, 221 ! 110, 1 , 38, 0, 








41, 16, 253, 1 


, 0, 60, 9, 221 , 78, 0, 








6, 0, 9, 221, 


70, 2, 203, 1205 40, 35, 








120, 237, 68, 


71, 54, 191, 221, 78, 3, 13, 








253? 42, 05 05 


253, 42, 0, 0, 253, 42, 








05 0, 253, 42, 


05 0, 32, 237, 54, 128, 








43, 16, 227, 2 


4, 29, 54, 191, 221, 78, 3, 








13, 253, 42, 


, 0, 253, 42, 0, 05 2535 








42, B, 0, 253, 


42, 0, 0, 32, 237, 54, 








128, 35, 16, 2 


27, 253, 225, 221, 225, 225, 193, 



241, 201 
CHKSUM= 146 

MVVERT: MOVING DOT VERTICAL 

System Configuration 
Model I, Model III. 

Description 

MVVERT moves a "dot" along a vertical line with a varying time delay. This 
effect can be used for games or other applications. The dot may move along the 
vertical line from top to bottom, or from bottom to top, on the screen. The 
amount of time that the dot remains in any position can be adjusted under 

program control. 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
byte of the parameter block contains the starting x character position of the dot, 
from to 63. The next byte of the parameter block contains the starting line 
number y of the dot, from to 15. The next byte of the parameter block con- 
tains the number of character positions of travel. This will be a maximum of 16 
for vertical travel that starts at the top or bottom of the screen. The next byte of 
the parameter block contains the time delay value from 1 to 255 orO (256). One 
is a minimum time delay, while 255 and (256) are maximum time delays. 
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On output, the parameter block contents are unchanged. The dot has moved 
over the specified vertical line. 



INPUT 



OUTPUT 



H 



POINTER TO PARAM+0 



UNCHANGED 



PARAM+0 
+ 1 
+2 
+3 



STARTING X 



STARTING Y 



LENGTH 
(-16TO+16i 



TIME DELAY 
COUNT 



PARAM+0 
+ 1 
+2 
+3 



UNCHANGED 



UNCHANGED 



UNCHANGED 



UNCHANGED 



Algorithm 

The MVVERT subroutine performs the move by computing the starting address 
of the dot in video display memory, by finding the direction of travel, and by 
controlling the move with a count of the number of character positions in- 
volved. 

First, the line number value is picked up from the parameter block. This is 
multiplied by 64 to find the number of bytes (displacement) from the start of 
video display memory. This value is added to 3C00H to find the actual video 
memory address for the line start. This value is added to the character position 
of the start from the parameter block to find the starting position in video 
display memory. 

Next, a test is made of the direction of travel. Based on the direction, an incre- 
ment value of 40H (down) or — 40H (up) is stored in DE. 

The code at MVV020 is the main loop of the subroutine. A byte of OBFH is 
stored to the current video display memory position. A time delay is then done 
by decrementing the count value in the C register. After the delay, a byte of 80H 
is stored to "erase" the last dot. 

The current video display memory position in HL is then incremented or decre- 
mented by the increment value in DE to find the next location of the dot. The 
count of the number of character positions involved is then decremented, and a 
jump is made to MVV020. 



Sample Calling Sequence 



NAME OF SUBROUTINE? MVVERT 
HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 
PARAMETER BLOCK VALUES? 



+ 





1 


32 


X = 32 


+ 


1 


1 





Y = 


+ 




1 


240 


LENGTH - 16, DOWN 


+ 


3 


1 





MAXIMUM DELAY 


+ 


4 











MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 39000 
SUBROUTINE EXECUTED AT 39000 
INPUT: OUTPUT: 
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HL= 40000 




HL= 40000 


PARAM+ 


32 


PARAM+ 32 


PARAM+ 1 





PARAM+ 1 


PARAH+ 2 


240 


PARAM+ 2 240 


PARAH+ 3 





PARAH+ 3 



-UNCHANGED 



NAME OF SUBROUTINE? 



Notes 

1. The program may "bomb" the system if the length of travel goes beyond 
video display memory boundaries. 

2. The program may "bomb" the system if the x and y coordinates are im- 
properly specified. 

3. Use additional time-wasting instructions as required. 

4. Delete time-wasting instructions as required. NOPs (all zeroes) may be 
substituted to shorten delay times. 

5. Speed at maximum delay is about 85 character positions per second. 



Program Listing 



7F00 




00100 


ORG 


7F00H 


;0522 








001 10 


; **«**#*♦##**♦##**#*##*##**####**#*####*####« -x-x-********** 






00120 


;* MOVING DOT 


VERTICAL. MOVES 


DOT ALONG VERTICAL LINE 








00130 


5* WITH VARYING TIME DELAY 




* 






00140 


•* input: 


HL=> PARAMETER BLOCK 


* 






00150 


;* 


PARAM+0=STARTING 


CHAR POS'N (X) 


♦ 






00160 


; * 


PARAM+l=STARTIN6 


LINE # (Y) 


* 






00170 


; * 


PARAM+2=LENGTH OF 


TRAVEL IN CHAR POSNS 


* 






00180 


; * 


+ IS UP) 


- IS DOWN 


« 






00190 


5 * 


PARAM+3=TIME DELAY, 1=MIN 255/0=MAX 


# 






00200 


;* output: 


DOT MOVES ALONG VERTICAL LINE 


* 






00210 


; ***«***«*#»*#**##*#*#*********#*#**♦♦*#**#«*#*##******** 






00220 










7F00 


F5 


00230 


mvvert push 


AF 


;SAVE REGISTERS 




7F01 


C5 


00240 


push 


BC 






7F02 


D5 


00250 


push 


DE 






7F03 


E5 


00260 


PUSH 


HL 






7F04 


DDES 


00270 


push 


IX 






7F06 


FDE5 


00280 


PUSH 


lY 






7F0S 


CD7F0A 


00290 


CALL 


0A7FH 


;***GET PB LOC'N*** 




7F0B 


E5 


00300 


PUSH 


HL 


; TRANSFER TO IX 




7F0C 


DDEl 


00310 


POP 


IX 






7F0E 


0606 


00320 


LD 


656 


; ITERATION COUNT 




7F10 


DD6E01 


00330 


LD 


L, < IX+1 ) 


;GET LINE # 




7F13 


2600 


00340 


LD 


Hi 


;now in HL 




7F15 


29 


00350 


MVV010 ADD 


HL, HL 


;line# * 64 




7F16 


10FD 


00360 


DJNZ 


MVV010 


SLOOP 'TIL DONE 




7F18 


01003C 


00370 


LD 


BC, 3C00H 


; START OF SCREEN 




7F1B 


09 


00380 


ADD 


HL,BC 


;FIND LOC OF LINE START 




7F1C 


DD4E00 


00390 


LD 


C, ( IX+0) 


;GET CHAR POSN (X) 




7F1F 


0600 


00400 


LD 


B,0 


5 NOW IN BC 




7F21 


09 


00410 


ADD 


HL,BC 


;FIND ACTUAL LOC'N 




7F22 


DD4602 


00420 


LD 


B, ( IX+2) 


;GET length of TRAVEL 




7F25 


CB7B 


00430 


B I T 


7,B 


;test sign 




7F27 


UC0FF 


00440 


LD 


DE, -40H 


; INCREMENT FOR NEXT DOT 




7F2A 


2807 


00450 


JR 


Z , MVV020 


;G0 IF UP 




7F2C 


7B 


00460 


LD 


A, B 


; DOWN 




7F2D 


ED44 


00470 


neg 




;FIND ABSOLUTE VALUE 




7F2F 


47 


00480 


LD 


B, A 


;BACK TO B FOR DJNZ 
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7F30 114000 00490 
7F33 36BF 00500 
7F35 DD4E03 00510 
7F3S 0D 00520 
7F39 FD2A0000 00530 
7F3D FD2A0000 00540 
7F41 FD2A0000 00550 
7F45 FD2A0000 00560 
7F49 20ED 00570 
7F4B 3680 00580 
7F4D 19 00590 
7F4E 10E3 00600 
7F50 FDEl 00610 
7F52 DDEl 00620 
7F54 El 00630 
7F55 Dl 00640 
71-56 CI 00650 
7F57 Fl 00660 
7F58 C9 00670 
0000 00680 
00000 TOTAL ERRORS 



HVV030 



MVV020 



LD 

LD 

LD 

DEC 

LD 

LD 

LD 

LD 

JR 

LD 

ADD 

DJNZ 

POP 

POP 

POP 

POP 

POP 

POP 

RET 

END 



DE,40H 

( HL ) > 0BFH 

C, ( IX+3) 
C 

lY, <0) 

lYi (0) 

lYi (0) 

lY, (0) 

NZ > MW030 

(HL) 1 80H 

HL,DE 

HW020 

lY 

IX 

HL 

DE 

BC 

AF 



! INCREMENT FOR DOWN 

;SET CHAR PCS TO ALL ON 
;GET DELAY COUNT 

; DECREMENT COUNT 

; WASTE TIME 



; DELAY LOOP 
; RESET CHAR POS 
; POINT TO NEXT POSITION 
;LOOP FOR LENGTH OF LINE 



; RESTORE REGISTERS 



; RETURN TO CALLING PROG 



MVVERT DECIMAL VALUES 



245? 197 J 21 3» 229; 221, 229, 253, 229, 205; 127 5 
105 229? 221? 225> 6, 6, 221; 110! 1, 3B, 
B, 41 > 16! 253) 1, 0! 60! 9, 221 » 78! 

0! 6! 0! 9! 221 ! 70! 2! 203! 120! 17l 

192! 255! 40! 7! 120! 237! 68! 71 ! 17! 64? 
0! 54! 19l! 22l! 78! 3! 13! 253! 42! 0! 
0! 253! 42! 0! 0! 253i 42! 0! 0! 253! 
42! 0! 0! 32! 237! 54! 128! 25, 16, 227, 
253, 225 , 221, 225 , 225 , 2m, 193, 241? 201 
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System Configuration 
Model L 

Description 

NECDRV is a printer driver for the serial NEC Spinwriter Printer or similar type 
of serial printer. Previous to use, the SETCOM subroutine must have been run 
to initialize the RS-232-C interface to the proper baud rate and other serial 
parameters. The NECDRV subroutine outputs a single character to the serial 
printer with automatic line feed. The wiring configuration for the Spinwriter 
cabling is shown in the figure below. 

Input/Output Parameters 

On input, the L register contains the character to be printed. On output the 
character has been printed and all registers are unchanged. 



NECDRV: NEC SPINWRITER DRIVER 
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INPUT 



OUTPUT 



CHARACTER 



1_ 

UNCHANGED 

1 



Algorithm 

The NEC DRV subroutine first gets the status from the RS-232-C controller 
holding register. If the transmitter holding register is not empty, the previous 
character has not been sent. If it is empty, the Clear to Send (CTS) line is 
checked. If there is a CTS, the character in HL is output. A test for a carriage 
return is then done. If the character is a carriage return, a line feed character is 
sent by a jump back to NECOIO. 



Sample Calling Sequence 



NAME OF SUBROUTINE? NECDRV 
HL VALUE? 65 "A" 
PARAMETER BLOCK LOCATION? 
MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 37000 
SUBROUTINE EXECUTED AT 37000 
INPUT: OUTPUT: 
HL= 65 HL= 65 



NAME OF SUBROUTINE? 



Notes 



1. See the SETCOM subroutine for comments about setting up the RS-232-C 
interface. 

2. Baud rates of 1 10 to 1200 may be used. 



Program Listing 



TRS=80 
RS 232 C 
CABLE 



TD 
RD 



SGND 
CTS 



NEC spinwriter connections. 



TD 



RD 



TIE 

TOGETHER 



SGND 




NEC CABLE 



SGND 

REVERSE 
CHANNEL 



7F00 00100 ORG 7F00H 5 0522 

001 10 ; *******«#*«#*****«***#««*«»#*#«***«#**«*«»***«#**««#**#» 

00120 5* NEC SPINWRITER DRIVER. ROUTINE FOR USING NEC SPIN- * 

00130 ;* WRITER WITH SERIAL OUTPUT. * 

00140 ?* INPUT: HL=CHARACTER TO BE PRINTED ♦ 

00150 ;* OUTPUT: CHARACTER PRINTED ON SPINWRITER » 

00160 5 **«**«***##♦♦*♦**♦#♦**♦*«*♦♦*»**#*♦«*****#**«#*«*«***#** 

00170 ; 
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7tm 


F5 


00180 NECDRV 


PUSH 


AF 


;SAVE REGISTER 


7F01 


CD7F0A 


00190 


CALL 


0A7FH 


;«*«(5ET CHARACTER*** 


7F04 


3AEA00 


00200 NEC010 


LD 


Ai i 0EAH ) 


;GET STATUS 


7F07 


CB77 


002 1 


BIT 


6 5 A 


. TFST XMTR HOI D T NFS 


7F09 


28F9 


00220 


JR 


7 1 NFr01 (71 


; Gil TF NOT FMPTY 


7FPIR 


DBE8 


f7tPl"730 


IN 




; fifTT ri FAR TO c;F!\in 


7F0D 


CB7F 


00240 


BIT 


7 1 A 


; TEST 


7F0F 


28F3 


00250 


JR 


2 1 NEC010 


;SO IP NOT CTS 


7F1 1 


7D 


00260 


LD 


A? L 


; PUT CHARACTER IM A 


7F12 


D3EB 


00270 


OUT 


C 0FBH ) 1 A 


; OUTPUT CHARACTER 


7F14 


FE0D 


00280 


CP 


0DH 


;TEST FOR CR 


7F16 


2004 


00290 


JR 


NZ 5 NEC090 


;G0 IF NOT CR 


7F18 


3E0A 


00300 


LD 


A, 0AH 


;LINE FEED 


7F1A 


1BE8 


lu !£J i_> J. KJ 


JR 


MFrW 1 PI 


; OUTPUT 1 F 


7F1C 


Fl 


00320 NECB90 


POP 


AF 


; RESTORE REGISTER 


7F1D 


C9 


00330 


RET 






0000 




00340 


END 






00000 TOTAL 


ERRORS 












NECDRV DECIHAL 


VALUES 








245 5 205 ? 


127, 


IB, 58, 234, 


0, 203, 119, 40, 






249, 219, 


232, 


203, 127, 40, 


243, 1255 211, 235, 






254, 13, 


32, 4 


5 62, 10, 24, 


232, 241, 201 



CHKSUH= 102 



PRANDM: PSEUDO-RANDOM NUMBER GENERATOR 



System Configuration 

Model I, Model 111, Model II Stand Alone. 



Description 

This subroutine returns a pseudo-random number in 32 bits. A pseudo-random 
number differs from a random number in that it is repeatabie. If the same 
"seed" value is used, the same sequence of numbers as previously generated 
will be repeated. At the same time, the sequence of numbers will appear to be 
randomly distributed and can be utilized as random numbers for games, simu- 
lations, and modeling. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The four 
bytes of the parameter block contain the seed, or starting value, of the pseudo- 
random number sequence. The seed value may not be zero. 

On output, the four bytes of the parameter block contain the next pseudo- 
random number in sequence. 



OUTPUT 
H L 



UNCHANGED 
1 



IMEMI 

H L 

+ 



POINTER TO PARAM+0 
( 
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PARAM+0 
+ 1 
+2 
+3 



16 MS BITS 

OF SEED 



1 6 LS BITS 
OF SEED 



PARAM4 



16 MS BITS 
OF NEW 
VALUE 



16 LS BITS 
OF NEW 
VALUE 



Algorithm 

A pseudo-random number sequence with a relatively long cycle time can be 
generated by multiplying a 32-bit value by an odd power of 5. In this case, the 
third power of five is used to multiply the seed value by 125. 
The 32-bit seed is picked up from the parameter block and put into DE, HL, DE, 
HL is now added to itself three times in the PRA01 loop to multiply the original 
seed by 128. Next, the original seed value is put into BC. BC is then subtracted 
from DE, HL three times to produce a result that is the original number times 
125. This value is then stored back into the parameter block to be used as the 
new seed. 

Sample Calling Sequence 



} 



SEED = 00010001H 



NAME OF SUBROUTINE? PRANDM 
HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40006 
PARAMETER BLOCK VALUES? 
+ 2 1 
+ 221 
+ 400 

MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 37000 
SUBROUTINE EXECUTED AT 37000 
INPUT: OUTPUT: 
HL= 40000 HL= 40000 

PARAM+ 1 PARAM+ 125 

PARAM+ 1 PARAM+ 1 

PARAM+ 2 1 PARAM+ 2 125 

PARAM+ 3 PARAM+ 3 



-NEW VALUE = 007D007DH 



NAME OF SUBROUTINE? 
Notes 

1. Initialize the seed value at the beginning of the sequence with a nonzero 
value. Thereafter, simply call PRANDM with the previous pseudo-random 
number in the parameter block. 

2. An initial seed of an odd number generates all odd numbers, an initial seed 
of an even number, even numbers. You may use only the most significant n bits 
of the 32 bits to obtain odd and even numbers. 

Program Listing 

7F00 00100 ORG 7F00H 5 0522 

001 10 ; »*«#*#****«*««***»*****#*##«***#*#*######*#**#***«#««#*« 



00 1 20 ;* PSEUDO-RANDOM NUMBER ROUTINE. GENERATES A PSEUDO- * 

00130 I* RANDOM (REPEATABLE) NUMBER. ♦ 

00140 ;* INPUT: HL=> PARAMETER BLOCK * 

00150 ;* PARAM+0>+l=16 MS BITS OF SEED * 

00160 ;* PARAM+25 +3=16 LS BITS OF SEED * 

00170 ;* OUTPUT: PARAM+0, +1=16 MS BITS OF NEW VALUE * 

00180 ;# PARAM+25 +3=16 LS BITS OF NEW VALUE * 



00 1 90 ! ***■«■**#*♦**♦***#♦«***♦*#****■*««*#«#####««»*»♦♦**#*«»*«#* 
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00200 


; 








7F0B 


F5 


002 1 


PRANDH 


PUSH 


AF 


;SAVE REGISTERS 


7F01 


C5 


00220 




PUSH 


BC 




7F02 


D5 


00230 




PUSH 


DE 




7F03 


E5 


00240 




PUSH 


HL 




71- 04 


DDE5 


00250 




PUSH 


IX 




7F06 


CD7F0A 


00260 




CALL 


0A7FH 


;»**GET PAR BL ADDR*** 


7F09 


E5 


00270 




PUSH 


HL 


; TRANSFER TO I X 


7F0A 


DDEl 


00280 




POP 


I X 




7F0C 


DD5E00 


00290 




LD 


E! < IX+0) 


;DE HOLDS MS SEED 


7F0F 


DD5601 


00300 




LD 


Dl < IX+1 ) 




7F12 


DD6E02 


00310 




LD 


L, < IX+2) 


5HL HOLDS LS SEED 


7F15 


DD6603 


00320 




LD 


Hi ( IX+3) 




7F18 


0607 


00330 




LD 


Bs 7 


;FOR LOOP COUNT 


7F1 A 


29 


00340 


PRA010 


ADD 


HL» HL 


;2 TIMES LS 16 BITS 


7F1B 


EB 


00350 




EX 


DE 5 HL 


;MS NOW IN HL 


7F1 C 


ED6A 


00360 




ADC 


HL 1 HL 


5 2 TIME MS 16 BITS 


7F1E 


EB 


00370 




EX 


DE > HL 




7F1F 


10F9 


00380 




DJNZ 


PRA010 


;7 TIMES=TIMES 12S 


7F21 


3E03 


00390 




LD 


A) 3 


; COUNT FOR SUBTRACT 


7F23 


DD4E02 


00400 


PRA020 


LD 


Ci ( IX+2) 


!SET LS 16 BITS OF SEED 


7F26 


DD4603 


00410 




LD 


Bs ( IX+3) 




7F29 


B7 


00420 




OR 


A 


; RESET CARRY 


7F2A 


ED42 


00430 




SBC 


HL > BC 


; SUBTRACT 


7F2C 


EB 


00440 




EX 


DE» HL 


; SWAP 


7F2D 


DD4E00 


00450 




LD 


Cs ( I X+0 ) 


;GET MS 16 BITS OF SEED 


7F30 


DD4601 


00460 




LD 


B> (IX+1) 




7F33 


ED42 


00470 




SBC 


HL5 BC 


; SUBTRACT 


7F35 


EB 


00480 




EX 


DE ) HL 


;SWAP BACK 


7F36 


3D 


00490 




DEC 


A 


;3 TIMES=SEED*125 


7F37 


20EA 


00300 




JR 


Ml, PRA020 


5 GO IF NOT 3 


7F39 


DD7300 


00510 




LD 


( IX+0) lE 


; STORE NEW VALUE 


7F3C 


DD7201 


00520 




LD 


( IX+1 ) 1 D 




7F3F 


DD7502 


00530 




LD 


( IX+2) ) L 




7F42 


DD7403 


00540 




LD 


< IX+3) > H 




7F45 


DDEl 


00550 




POP 


IX 


; RESTORE REGISTERS 


7F47 


El 


00560 




POP 


HL 




7F48 


Dl 


00570 




POP 


DE 




7F49 


CI 


00580 




POP 


BC 




7F4A 


Fl 


00590 




POP 


AF 




7F4B 


C9 


00600 




RET 




; RETURN 


0000 




00610 




END 







00000 TOTAL ERRORS 



PRANDM DECIMAL VALUES 



245> 197s 2i3> 229» 221. 229j 2055 127» 10. 229i 
221 » 225f 221? 94» 05 221 » S6» 1j 221 » ilBi 
2, 22! 1 102» 3. bi 7i 41 > 235? 237? 106? 
235? 16? 249? 62? 3? 221? 78? 2? 221? 70? 
3? 183? 237? 66? 235? 221? 78? 0> 221? 70? 
1? 237? 66? 235? 61? 32? 234? 221? 115? 0? 
221? 114? 1? 221? 117? 2? 221? 116? 3? 221? 
225? 225? 209? 193? 241? 201 



CHKSUM= 229 



RANDOM: RANDOM NUMBER GENERATOR 



System Configuration 



Model I, Model III, Model II Stand Alone. 
149 



Description 



This subroutine returns a true random number of through 127, provided cer- 
tain conditions are met. If the subroutine is called at unpredictable intervals the 
number returned will be truly random. An example of this would be a CALL to 
RANDOM after a keypress from the TRS-80 keyboard. If RANDOM is called 
repetitively to generate 100 "random" numbers, however, the numbers gener- 
ated will not be random. It's very possible in this case that the number of 
microprocessor cycles between each CALL will be fixed, and that the resulting 
numbers will simply differ by a fixed amount. 

RANDOM generates random numbers by using the count in the R register. As R 
is used for refresh and is continually counting from through 127, the event 
that causes the CALL to random must be "asynchronous" compared to the Z-80 
timing and must occur over relatively long periods of time (hundreths of sec- 
onds). RANDOM is simply a means to use the asynchronous event to conven- 
iently generate a number from through 127. 

Input/Output Parameters 

There are no input parameters to RANDOM. 

On output, RANDOM returns the count in the R register in HL. H will be and 
L will be a value of through 127. 



INPUT 

H L 

1 

NONE 



OUTPUT 



# 0-127 



Algoritlim 

Obtaining the count from the R register can be compared to spinning a wheel 
that has 128 divisions numbered through 127. The wheel is stopped at ran- 
dom times to yield a true random number. 

R is incremented from through 127 to provide a refresh address for the TRS-80 
dynamic RAM. An increment occurs each "fetch" cycle of an instruction, 
which is either once or twice per instruction (some instructions have two fetch 
or Ml cycles). If a typical instruction takes 5 microseconds, R counts 200,000 
times per second, making the time between external events such as keypresses 
sufficiently large to generate true random numbers. 



Sample Calling Sequence 



NAME OF SUBROUTINE? RANDOM 
HL VALUE? 

PARAMETER BLOCK LOCATION? 

MEMORY BLOCK 1 LOCATION? 

MOVE SUBROUTINE TO? 38000 

SUBROUTINE EXECUTED AT 38000 

INPUT: OUTPUT : 

HL= HL= 16 RANDOM # 



NAME OF SUBROUTINE? 
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Notes 



1. To get a number in a range other than 0-127, subtract the range required 
from the value in HL until the number is less than the range required. If the 
number returned is 99, for example, and the number required is 0-9, then 
subtracting 10 until the result is less than 10 produces 9, a number in the range 
required. 



Program Listing 



7F00 




00100 


ORG 


7F00H 


5 0520 






00110 


; ******************************************************* * 






00 1 20 


;* RANDOM NUMBER GENERATOR. 


GENERATES A TRUE RANDOM NUM-* 






00130 


;* BER PROVIDED 


CALLED AT ASYNCHRONOUS TIMES! * 






00140 


;# INPUT: NONE 


* 






00150 


;* OUTPUT: RANDOM NUMBER 


0-127 IN HL * 






00160 


; ******************************************************** 






00170 


5 






7F00 


F5 


00180 


RANDOM PUSH 


AF 


;SAVE REGISTER 


7F01 


ED5F 


00190 


LD 


A, R 


;6ET 0-127 FROM R 


7FB3 


6F 


00200 


LD 


L» A 


; NOW IN L 


7F04 


2600 


00210 


LD 


H?0 


;NOW IN HL 


7F06 


Fl 


00220 


POP 


AF 


; RESTORE REGISTER 


7F07 


C39A0A 


00230 


JP 


0A9AH 


;*#*RETURN WITH ARG*** 


7F0A 


C9 


00240 


RET 




; NON-BASIC RETURN 


0000 




00250 


END 






00000 TOTAL 


ERRORS 









RANDOM DECIMAL VALUES 



2455 237 » 95. Ill, 38. 0. 241 . 195. 154. 10, 
201 



CHKSUM= 247 



RCRECD: READ CASSETTE RECORD 



System Configuration 
Model I, Model III. 



Description 

RCRECD reads a previously written record from cassette to memory. The 
WCRECD subroutine must have been used to generate the cassette record. The 
record may be any number of bytes, from 1 to the limits of memory. The record 
is prefixed by a four-byte header that holds the starting address and number of 
bytes in the remainder of the record. The record is terminated by a checksum 
byte that is the additive checksum of all bytes in the record. Data in the record 
may represent any type of data the user desires; the record is read in as a "core 
image." 
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Input/Output Parameters 



On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block are the starting address of the data to be read 
in, in standard Z-80 address format, least significant byte followed by most 
significant byte, if the starting address of the cassette record header is to be 
used, this parameter is 0. The next two bytes of the parameter block are re- 
served for the number of bytes value from the record header. The next byte is 
reserved for the checksum from the record header. 

On output, the contents of the parameter block is unchanged and the record 
has been read from cassette. PARAM+2,+ 3 contain the starting address of the 
data from tape, if this address was to be used. PARAM+4 contains the check- 
sum for the read operation. If this value is a zero, the tape data has been read 
correctly; otherwise, an invalid read of one or more cassette bytes has oc- 
curred. 



INPUT 



OUTPUT 



H 



POINTER TO PARAM+0 



+ 



UNCHANGED 



PARAM+0 



+ 1 



+3 



STARTING ADD 

OR IF 
USE TAPE ADD 



RESERVED 

FOR# 
OF BYTES 



RESERVED 
FOR CHECKSUM 



PARAM+0 

+ 1 



+2 
+3 
+4 



STARTING ADD 
OR ADDRESS 
FROM TAPE 



#0F 
BYTES FROM 
TAPE 



IF GOOD 
CHECKSUM 



Algorithm 



The RCRECD subroutine uses Level II or Level III ROM subroutines to perform 
the write. First, a CALL is made to 212H to select cassette 0. Next, a call is made 
to 296H to bypass the leader and sync byte on the cassette. 



The four-byte header is next read from the cassette record. The number of bytes 
from the cassette record is saved in the parameter block. The starting address 
from the cassette record is saved if the starting address was zero. At this time 
also, the B register contains the checksum of the first four cassette bytes. 

The value from PARAM-l-0, -f-1 (original starting address or starting address 
from cassette) is picked up at RCR020. The code from RCR030 on is a loop to 
read a cassette byte by a CALL to 235H, store the byte in memory via the HL 
pointer, increment the pointer and decrement the byte count, and checksum 
each byte. When DE has been decremented down to zero, the read of the body 
of the cassette record is done, and a final read is performed to pick up the 
checksum byte from the cassette. 

The checksum value in B is subtracted from the cassette checksum, and the 
result stored in the parameter block. The two should be equal, resulting in a 
difference of zero. Finally, a CALL to 1F8H is done to deselect the cassette. 
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Sample Calling Sequence 



NAME OF' EiUBROUTlNE? RCRECD 
HL VALUE'? 40000 

EiLOCK LOCATION? 40000 
BLOCK VALUES? 
USE TAPE ADDRESS 



PARAMETER 
PARAMETER 
+ 02 

+ 2 2 
+ 4 1 
•+■5 
MEMORY 



INITIALIZE FOR EXAMPLE 









E^LOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 37000 
SUBROUTINE EXECUTED AT 37000 



INPUT: 
HL= 40000 



OUTPUT: 
HL= 40000 



PARAM+ 
PARAM+ 
PARAM+ 
PARAM+ 
PARAM+ 











PARAM+ 
PARAM+ 
PARAM+ 
PARAM+ 
PARAM+ 





60 

4 




ADDRESS FROM TAPE (3C00H) 

-1024 BYTES 
CHECKSUM OK 



NAME OF SUBROUTINE? 



Notes 

1. This subroutine uses cassette only. 

2. For 500 baud tape operations, each 1000 bytes will take about 20 seconds. 

3. This subroutine does not save registers. 



Program Listing 

7F00 00100 ORG 7F00H 5 0520 

001 10 ; *#**■»#«#*«*♦*♦*******«***»**♦****«*******«************** 

00120 ;* READ RECORD FROM CASSETTE. READS RECORD PREVIOUSLY * 

00130 ;* WRITTEN BY WCRECD ROUTINE. * 

00140 ;* INPUT: HL=> PARAMETER BLOCK * 

00150 ;* PARAM+0>+l=STRTNS ADDR OR IF TAPE ADDRS * 

00160 !* PARAM+2»+3=RESERVED FOR NUMBER OF BYTES * 

00170 5* PARAM+4=RESERVED FOR CHECKSUM * 

00180 ;* OUTPUT: PARAM+0,+l=STARTING ADDRESS? ORIS OR TAPE * 

00190 ;* PARAM+2>+3=# OF BYTES FROM TAPE RECORD * 

00200 ;» PARAM+4=CHECKSUM. IF VALID, ELSE NON-ZER * 

00210 ; ♦*#***#****«*********«**************«****«*********«**** 



00220 ; 



7F00 


F3 


00230 RCRECD 


DI 




5 DISABLE INTERRUPTS 


7F01 


AF 


00240 


XOR 


A 


; ZERO A 


7F02 


CD 1202 


00250 


CALL 


212H 


5 SELECT CASSETTE 


7F05 


CD9602 


00260 


CALL 


296H 


; BYPASS LEADER 


7F0B 


CD7F0A 


00270 


CALL 


0A7FH 


;***GET PB LOC'IM*»* 


7F0B 


E5 


00280 


PUSH 


HL 


; TRANSFER TO IX 


7F0C 


DDEl 


00290 


POP 


IX 




7F0E 


DDE5 


00300 


PUSH 


IX 


;SAVE 


7F10 


CD3502 


00310 


CALL 


235H 


;GET START LSB 


7F13 


6F 


00320 


LD 


L) A 


;SAVE 


7F14 


E5 


00330 


PUSH 


HL 




7F15 


CD3502 


00340 


CALL 


235H 


;eET START MSB 


7F18 


El 


00350 


POP 


HL 


! RESTORE LSB 


7F19 


67 


00360 


LD 


HiA 


; MERGE MSB 


7F1A 


E5 


00370 


PUSH 


HL 




7F1B 


CD3502 


00380 


CALL 


235 H 


!GET # LSB 


7F1E 


5F 


00390 


LD 


E? A 


;SAVE 


7F1F 


D5 


00400 


PUSH 


DE 
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/ r ^lij 










jl.iJ>_j n 


: (ipX il MSB 


/ r 


n 1 

u I 






PAP 


np 


•RpcTORF # 
5 i™ C3 i V' rt £_ w 


/ r Z'^- 


3 / 






L-l/ 


n« A 

1/ ? H 






P 1 
tl J. 


HJ KJ *r *t ttj 




PAP 


Mi 


» ppqTApp QTARTIhiG ADDRES^S 


f r 


nrsP 1 

UI/C. i 


l7lf71ARf?i 




PAP 


T V 
i. A 


" PAT IsJTFR TO PAR RI OCK 


/ 1 


TA 
f H 


raraAAEt 






A B n 

M ? 1/ 


; TNJTTTAI T7F CHFCKSUH 

5 J.IMi, f Aril— -ii-ii— \jnc-Vjf\i-JV./ti 






(7^^47(51 




Ann 


A .! F 

ri 5 C 




'7P'"'A 


PA 






Ann 


A B M 




■yp^'P 
f r 


03 


DiCllAOfTi 




Ann 


A B ! 




/ r j:! U 


A7 






L.i/ 


P = A 


- CAUP rwprk'<^i jm 


7P'~'n 




CTOic; 1 OS 
IuUjD 1 kI 




L. u 


i' T V 4- \ a P 
\ IAt^^ / 9P 


■ QAUP & Ap D VTFQ 

^ PH VP TT I I E-.0 


/ r v3faj 








1 n 
1—1/ 


\ X A T-O /II/ 






1/1/ j' CWkJ 






1 n 

L_l/ 




• fzpT RTARTTMf^ ADDRF^^ 


7P"TA 


R7 

o / 






AP 


A 


s TPQT PAP 171 


TP"? "7 








T P 


IMA. ? lA wKlcJ^iL^ 


« /Zf-i TP 1 JQP AnnPPQP; TKI PR 


7p-TO 


UU i _J 






LD 


( T y+d ) . 1 

\ X A 'MJ / 5 L_ 


; qTARF TAPF ADDRESS 


f r ij? w 


1/1/ / ^SfcJ 1 






1 n 

L-.1/ 


T Y-+- 1 ^ . U 




_______ 

/r u3r 


U iJ a c. lei ij3 






1 n 


L. 9 \ i A / 


' fZITT CTAPT T AnnRPQQ 




i/UooW 1 






I Fl 

LU 


fiS llAT^l/ 




7F45 


DDE5 


00600 




PUSH 


I X 


loAvL rUlN 1 LH 


7F47 


C5 


00610 


RCR030 


PUSH 


BC 


; SAVE CHECKSUM 


7F4S 


D5 


00620 




PUSH 


DE 


"SAVE ENDING ADDRESS 


7F49 


E5 


00630 




PUSH 


HL 


; SAVE CURREN I LOCATIUN 


7F4A 


CD3502 


00640 




CALL 


235 H 


; READ NEXT BYTE 


7F4D 


E 1 


00650 




POP 


HL 


? RhbTUHb rUlN 1 EH 




n 1 

U 1 






PUr 


Oh 


7 Kt.P 1 UKfc. pNUlNa L.UL N 




r 1 


iuftJO / ^ 




PAP 


P P 


= PPCTAPP rwPPk'Qi tM 
1 KPP f UiAp writ UrXov/l 1 




"7 -7 










» CTAPP PVTP 


"7P^ 1 


olcl 






Ann 




- Ann TKI AUP i^U'CI IM 


7F52 


47 


00700 




LD 


P. ^ A 


- cAup rHFrkRUM 


7F53 


23 


0071 




INC 


HI 


• pi IMP pATMTFR 


7F54 


IB 


00720 




DEC 


DE 


- nprRFMFNT # OF RYTFS 


7F55 


7A 


00730 




LD 


A , n 

r1 9 1/ 


^ xpqj FOR PI 


7F56 


B3 


00740 




OP 


E 




7F57 




ClC17S(71i 




.TP 


IMjil, 5 n \j ft «J i_? KJ 


« /r A TP MAT I APT P.YTF 


7PS9 
f n ^ T 


C5 


C1I7I7A(71 




PS JQI~I 














AAi 1 




- DP An AUPAk'Ql IM RVTP 
? KPHl/ Uric. ur\OUii O T i P 




r 1 


VJHJ / CiVJ 




r Ur 






f r □ t 


i/i/p. 1 


VSVj t 7MJ 




rU r 


T Y 
i A 


- DPOT APP PA T K!TP P 


7F60 


90 


\D\ac3\u\ci 




bUB 




7 I pb ! CHhCHbUn 


7F61 


DD770A 


00810 




LD 


(IX-+-4),A 


"STORE FLAG 


7F64 


CDF801 


00820 




CALL 


IFSH 


5 DESELECT 


7F67 


C9 


00830 




RET 




; RETURN TO CALLING PROG 


0000 




00840 




END 






00000 TOTAL. 


ERRORS 











RCRECD DECIMAL VALUES 



243j 175) 205! IBs 2, 205» 150, 2» 205, 127, 
10, 229, 221, 225, 221, 229, 205, 53, 2, 111, 
229, 205, 53, 2, 225, 103, 229, 205, 53, 2, 
95, 213, 205, 53, 2, 209, 87, 225, 221, 225, 
122, 131, 132, 133, 71, 221, 115, 2, 221, 114, 
3, 221, 126, 0, 183, 32, 6, 221, 117, 0, 
221, 116, 1, 221, 110, 0, 221, 102, 1, 221, 
229, 197, 213, 229, 205 , 53, 2, 225, 209, 193, 
119, 128, 71, 35, 27, 122, 179, 32, 238, 197, 
205, 53, 2, 193, 221, 225, 144, 221, 119, 4, 
205, 248, 1, 201 



CHKSUM= 185 
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EDCOMS: iEAD iS-232-C SWITCHES 



System Configuration 
Model I. 



Description 

RDCOMS reads the configuration of switches on the RS-232-C controller 
board. The configuration of the switches is analyzed and put into separate 
parameters. RDCOMS may be used to verify that the switches are set correctly 
without having to reopen the RS-232-C access and reset the switches. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
six bytes of the parameter block are reserved for the results of the read. The 
last two bytes of the parameter block (PARAM+6,+ 7) hold the address of 
RDCOMS in standard Z-80 address format, least significant byte followed by 
most significant byte. This address can be obtained from the USR call address 
in BASIC or in the assembly-language CALL address. 

On output, the first two bytes of the parameter block contain the baud rate for 
which the RS-232-C interface is set, 110, 150, 300, 600, 1200, 2400, 4800, or 
9600. The next byte is set to a zero if parity is enabled, or to a one if parity is 
disabled. The next byte of the parameter block is set to a zero if one stop bit is 
used, or to a one if two stop bits are used. The next byte contains the number of 
bits in the RS-232-C transfer; is 5 bits, 1 is 7 bits, 2 is 6 bits, or 3 is 8 bits. The 
next byte contains a zero if odd parity is used, or a one if even parity is used. 



INPUT 



H 



POINTER TO PARAM+0 



OUTPUT 

H L 
1 



UNCHANGED 



+ 



PARAM+0 
+ 1 


RESERVED - 


PARAM+0 
+ 1 


BAUD 
RATE 


+2 


RESERVED 


+2 


0=PE, 1=PD 


+3 


RESERVED 




+3 


0=1 STOP BIT 
1=2 STOP BITS 


+4 


RESERVED 


" +4 


^=5 BITS, 1=7 BITS 
2=6 BITS, 3=8 BITS 


+5 


RESERVED 


+5 


0=ODD PAR 
1 EVEN PAR 


+6 
+7 


ADDRESS 

OF 

RDCOMS 




+6 
+7 


- UNCHANGED -- 
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Algorithm 



The SETCOM subroutine reads the switches and strips and aligns the fields into 
the proper format for the parameter block. 

First the switches are read by an "IN A,(0E9H)." Next, the parity type is 
obtained by a rotate left and an AND of 1 and stored in the parameter block. 
The switch byte is then rotated again two bits and an AND of 3 picks up the 
number of bits, which is stored in the parameter block. The switch byte is then 
rotated left and an AND of 1 picks up the number of stop bits, which is stored in 
the parameter block. The switch byte is then rotated left and an AND of 1 picks 
up the parity enable/disable bit, which is stored in the parameter block. The 
switch byte is then rotated left three times. An AND of 7 obtains the baud rate 
index. 

The baud rate index is put into HL and an ADD of HL to itself is done to 
multiply the index by two. The result is added to the location of RDCOMS and 
to the displacement of TABBD. HL now points to the TABBD entry, which is the 
baud rate corresponding to the switch code. This code is picked up from the 
table and stored in the parameter block. 



Sample Calling Sequence 



NAME OF SUBROUTINE? RDCOMS 
HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 
PARAMETER BLOCK VALUES? 
+ 020 
+ 2 2 
+ 420 
+62 37890 
+ 800 

MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 37890 
SUBROUTINE EXECUTED AT 37890 



INITIALIZE FOR EXAMPLE 



START OF RDCOMS 



INPUT! 
HL= 40000 
PARAM+ 
PARAM+ 
PARAM+ 
PARAM+ 
PARAM+ 
PARAM+ 
PARAM+ 
PARAM+ 



1 

3 
4 
5 
6 
7 



148 



OUTPUT! 
HL= 40000 
PARAM+ 
PARAM+ 
PARAM+ 
PARAM+ 
PARAM+ 
PARAM+ 
PARAM+ 
PARAM+ 



1 

3 
4 
5 
6 
7 



176 
4 


1 



148 



-1200 BAUD 
PE 

TWO STOP BITS 
SIX BIT LENGTH 
EVEN PARITY 

-UNCHANGED 



NAME OF SUBROUTINE? 



Notes 



1. Note transposed order of number of bits. 
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Program Listing 



7F00 00100 ORG 7F00H 5 0522 

001 10 ; ******************************************************'** 



00120 !* READ RS-232-C SWITCHES. READS THE RS-232-C BOARD « 

00130 SWITCHES. * 

00140 ;* input: HL=> PARAHETER BLOCK * 

00150 ;* PARAM+0 ■■- PARAM+5 : SEE OUTPUT * 

00160 ;» PARAM+6, +7: ADDRESS OF RDCOMS * 

00170 ;* OUTPUT :HL=> PARAMETER BLOCK * 

00180 ;* PARAM+0 » +1=BAUD RATE - 1105 150, 300i 600, « 

00190 ;* 1201 2400! 48005 9600 * 

00200 ;* PARAM+2=0=PARITY ENABLED* 1=PARITY DISAB * 

00210 ;* PARAM+3=0=ONE STOP BIT, 1=TW0 STOP BITS * 

00220 ;* PARAM+4=0=5 BITSs 1=7 BITS. 2=6 BITS. 3=8 * 

00230 ;* BITS * 

00240 ;* PARAM+5=0=ODD PARITY, 1=EVEN * 



00250 ; ******#*******■****************************************** 

00260 ; 



7F00 


F5 


00270 RDCOHS 


PUSH 


AF 


;SAVE REGISTERS 


7F01 


C5 


00280 


PUSH 


BC 




7F02 


D5 


00290 


PUSH 


DE 




7F03 


E5 


00300 


PUSH 


HL 




7F04 


DDES 


00310 


PUSH 


IX 




7F06 


CD7F0A 


00320 


CALL 


0A7FH 


;#**GET PB LOC'N*** 


7F09 


E5 


00330 


PUSH 


HL 


; TRANSFER TO IX 


7F0A 


DDEl 


00340 


POP 


IX 




7F0C 


DBE9 


00350 


IN 


A. (0E9H) 


; READ SWITCHES 


7F0E 


47 


00360 


LD 


B) A 


;SAVE IN B 


7F0F 


CB00 


00370 


RLC 


B 


; ALIGN 


7F1 1 


78 


00380 


LD 


AsB 




7F12 


E601 


00390 


AND 


1 


;GET PARITY TYPE 


7F14 


DD7705 


00400 


LD 


(IX+5),A 


; STORE 


7F17 


CB00 


00410 


RLC 


B 


; ALIGN 


7F19 


CB00 


00420 


RLC 


B 




7F1B 


78 


00430 


LD 


A.B 




7F1 C 


E603 


00440 


AND 


3 


;GET # OF BITS 


71- IE 


DD7704 


00450 


LD 


( IX+4) , A 


; STORE 


7F21 


CB00 


00460 


RLC 


B 


; ALIGN 


7F23 


78 


00470 


LD 


AiB 




7F24 


E601 


00480 


AND 


1 


;6ET # OF STOP BITS 


7F26 


DD7703 


00490 


LD 


< IX+3) . A 


; STORE 


7F29 


CB00 


00500 


RLC 


B 


;ALIGN 


7F2B 


78 


00510 


LD 


A.B 




7F2C 


E601 


00520 


AND 


1 


5GET PARITY ENAB/DIS 


7F2E 


DD7702 


00530 


LD 


< IX+2) . A 


; STORE 


7F31 


CB00 


00540 


RLC 


B 


5ALIGN 


7F33 


CB00 


00550 


RLC 


B 




7F35 


CB00 


00560 


RLC 


B 




7F37 


78 


00570 


LD 


A.B 




7F38 


E607 


00580 


AND 


7 


;GET BAUD INDEX 


7F3A 


6F 


00590 


LD 


L, A 


; BAUD INDEX NOW IN L 


7F3B 


2600 


00600 


LD 


H.0 


;NOW IN HL 


7F3D 


29 


00610 


ADD 


HL. HL 


;INDEX«2 


7F3E 


DD5E06 


00620 


LD 


E, < IX+6) 


; LOCATION OF RDCOHS 


7F41 


DD5607 


00630 


LD 


D» < IX+7> 




7F44 


19 


00640 


ADD 


HL. DE 


3 INDEX PLUS BASE ADDRESS 


7F45 


115900 


00650 


LD 


DE . TABBD 


5 BAUD RATE TABLE 


7F48 


19 


00660 


ADD 


HL» DE 


; INDEX + BASE + TABLE DIS 


7F49 


7E 


00670 


LD 


A, (HL) 


;6ET TABLE ENTRY 


7F4A 


DD7700 


00680 


LD 


( IX+0) , A 


5 STORE 


7F4D 


23 


00690 


INC 


HL 


; POINT TO NEXT BYTE 


7F4E 


7E 


00700 


LD 


A, (HL) 


;GET NEXT BYTE 


7F4F 


007701 


007 1 


LD 


( IX+1 ) . A 


; STORE 
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7F59 6E00 
7F5B 9600 
7F5D 2CB1 
7F5F 5802 
7F61 B004 
7F63 6009 
7F65 C012 
7F67 B025 
0000 



7F52 DDEl 
7F54 El 



7F55 Dl 

7h56 CI 

7F57 Fl 

7F5B C9 
0059 



00720 
00730 

00740 
00750 
00760 
00770 
007B0 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00860 
00870 



TABBD 



POP 

POP 

POP 

POP 

POP 

RET 

EQU 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

END 



110 
150 

300 

600 

1200 

2400 

4800 

9600 



IX 
HL 
DE 
BC 
AF 



*-RDCOriS 



; RETURN TO CALLING PROG 
;BAUD RATE TABLE 



; RESTORE REGISTERS 



00000 TOTAL 



ERRORS 



RDCOMS DECIMAL VALUES 



245? 197? 2135 229> 221 > 229» 205? 127> 105 229^ 
221 5 225i 219> 233, 71 > 203> 0! 120? 23B> 1, 
2215 119! 5! 2035 05 203! 0? 120? 2305 3i 
2215 1195 45 2035 05 120! 2305 I5 221 ! 119! 
3! 203! 05 120! 230! l! 221 5 119! 2? 2035 

0! 203! 05 203l 0! 120! 2305 ?! Hi! 38! 

0! 41> 22l! 94! 6! 22l! 86! 7! 25! 17! 

S9i 0! 25! 126! 221 ! 1195 0! 35i 126! 221, 

1195 li 221 ! 225! 225! 2095 193: 241 ! 201 ! 110! 

0! 1505 05 445 l! 881 25 1765 45 96. 

9! 192! 18! 128! 37 



CHKSUM= 122 



System Configuration 
Model I. 

Description 

READDS reads one sector from a specified disk drive into a 256-byte user 
buffer. The user must know where a particular file is and what sectors are in- 
volved to utilize this subroutine; it is not a general-purpose "file manage" 
subroutine. 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
byte of the parameter block contains the d isk drive number, to 3, correspond ing 
to disk drives 1 through 4. The next byte of the parameter block contains the 
track number, through N. (The standard TRS-80 uses disk drives with 35 tracks; 
other drives are available for 40 tracks.) The next byte is the sector number, 
through N (0 through 9 will be the most common range). The next two bytes are 
the user buffer area for the read in standard Z-80 address format, least signifi- 



READDS: READ DISK SECTOR 
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cant byte followed by most significant byte. The next byte contains a zero if a 
wait is to occur until the disk drive motor is brought up to speed; the byte 
contains a 1 if the motor is running (disk operation has just been completed) 
and no wait is necessary. The next byte (PARAM+6) is reserved for the status of 
the disk read on output. 

On output, all parameters remain unchanged except for PARAM+6, which 
contains the status of the read. Status is for a successful read, or nonzero if an 
error occurred during any portion of the read, if an error did not occur, the 
specified disk sector has been read into the buffer area. 



INPUT 



H 



POINTER TO PARAM+0 



guTpyi 

H 



+ 



UNCHANGED 



PARAM+0 


DRIVE # 0-3 


+ 1 


TRACK # 


+2 


SECTOR # 


+3 
+4 


BUFFER 
ADDRESS 
(MEM 1+0) 


+5 


0=WAIT 1 NO 
WAIT 


+6 


RESERVED 



PARAM+0 


UNCHANGED 


+ 1 


UNCHANGED 


+2 


UNCHANGED 


+4 


- UNCHANGED -- 


+5 


UNCHANGED 


+6 


0=NO ERROR 
5='0=ERROR 



MEM 1+0 

+ 1 
+2 
+3 
+4 
+5 
+6 



RESERVED 

FOR 
READ 
DATA 



MEM 1+0 

+ 1 
+2 

> +3 

+4 
+5 
+6 



256 BYTES 
OF 
SECTOR 
FROM 
DISK 



Algorithm 

The disk drive number in L is first converted to the proper select configuration 
at REA010. The select byte is then output to disk memory-mapped address 
37E0H to select one of the disk drives. 

The wait bit is then examined. If this bit is a zero, the loop at REA01 5 counts HL 
through 65,536 counts to wait until the disk drive motor is up to speed before 
continuing. 

The disk status is then examined {REA020). If the disk is not busy, the track 
number is loaded into the disk controller track register (37EFH) and a seek 
command is given {37ECH) to cause the controller to "seek" the track for the 
operation. A series of time-wasting instructions is then done. 

The code at REA030 gets the disk status after completion of the seek and ANDs it 
with a "proper result" mask. If the status is normal, the read continues, other- 
wise an "abnormal" completion is done to REA090. 
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The sector address from the parameter block is next output to the controller 
sector register (37EEH). Two time-wasting instructions are then done. 

A read command is then isued to the disk controller command register 
(37ECH). Further time-wasting instructions are done. 

The loop at REA040 performs the actual read of the disk sector. A total of 256 
separate reads is done. HL contains the disk address of 37ECH, DE contains a 
pointer to the buffer address, and BC contains the data register address of the 
disk controller. For each of the 256 reads, status is checked. If bit is set, all 256 
bytes have been read. If bit 1 of the status is set, the disk controller is still busy 
and a loop back to REA040 is done. If bit 1 of the status is not set the next byte is 
read, stored in memory, and the memory buffer pointer incremented. 

At the automatic (by the controller) termination of the read, status is again read, 
and an AND of 1 CH is done to check for the proper completion bits. The status 
is stored back into the parameter block. 



Sample Calling Sequence 



NAME OF SUBROUTINE? READDS 
HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 
PARAHETER BLOCK VALUES? 



+ 





1 





DRIVE 


+ 


1 


1 


17 


TRACK 17 


+ 




1 





SECTOR 


+ 


3 




45000 


BUFFER 


+ 


5 


1 





WAIT 


4 


6 


1 







+ 


7 











MEMORY BLOCK 1 LOCATION? 
HOVE SUBROUTINE TO? 38000 
SUBROUTINE EXECUTED AT 38000 



INPUT: 






OUTPUT 






HL= 40000 




HL= 40000 




PARAM+ 








PARAM+ 








PARAM+ 


1 


17 


PARAM+ 


1 


17 


PARAM+ 


"7' 





PARAM+ 


2 





PARAM+ 


3 


200 


PARAM+ 


3 


200 


PARAM+ 


4 


175 


PARAM+ 


4 


175 


PARAM+ 


5 





PARAM+ 


5 





PARAM+ 


6 





PARAM+ 


6 






UNCHANGED 



STATUS = OK 



NAME OF SUBROUTINE? 



Notes 



1. Always perform an RESTDS operation before doing initial disk I/O to reset 
the disk controller. 
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Program Listing 



7fm 00100 ORG 7F00H 5 0522 

001 10 ;**#«*#***♦**#*«***»*#»♦♦***•»**»*********«**♦**«**#♦***** 
00120 ;* READ DISK SECTOR. READS SPECIFIED TRACKj SECTOR INTO * 



00130 ;* HEMORY BUFFER, ♦ 

00140 ;* INPUT: HL=> PARAHETER BLOCK * 

00150 ;* PARAM+0=DRIVE #! - 3 * 

00160 ;* PARAH+1=TRACK #! - N * 

00170 ;* PARAH+2=SECT0R - N * 

00180 ;* PARAM+35 +4=BUFFER ADDRESS * 

00190 ;* PARAH+5=B=WAIT AFTER SELECTj 1=N0 WAIT * 

00200 ;# PARAri+6=RESERVED FOR STATUS * 

00210 ;* 0UTPUT:TRACK> SECTOR READ INTO BUFFER * 

00220 ;* PARAH+6=STATUS, 0=OK5 1=B.AD * 



00230 ; ****«*********»*«*«««#*#**»»*»«»«*********«*»**#***#**»* 







00240 


; 








7F00 


F5 


00250 


READDS 


PUSH 


AF 


;SAVE REGISTERS 


7F01 


C5 


00260 




PUSH 


BC 




7F02 


D5 


00270 




PUSH 


DE 




7F03 


E5 


00280 




PUSH 


HL 




7F04 


DDES 


00290 




PUSH 


I X 




7F06 


CD7F0A 


00300 




CALL 


0A7FH 


;*#»GET PB LOC'N*** 


7F09 


E5 


00310 




PUSH 


HL 


; TRANSFER TO IX 


7F0A 


DDEl 


00320 




POP 


I X 




7F0C 


DD7EB0 


00330 




LD 


A? ( I X+0 ) 


;GE1 DRIVE # 


7F0F 


3C 


00340 




INC 


A 


;lNCREnENT BY ONE 


7F 10 


47 


00350 




LD 


Bi A 


; PUT IN B- FuR CONVERT 


7F1 1 








LD 


A 5 B0H 


% HASK 


"7 C i "2 
/ r 1 v5 


\a / 


(clIcJO I Mi 


OCT A 17! 1 fTi 






3 AL 1 rUH bhLbL-l 


/r 1 4 


1 iur u 






T\ TK!"? 

Uu NZ 


OC A ra 1 !7i 

hehIo 1 yj 


7 CUNvbK 1 1 U AUDHtbb 


/rit> 










\ ^ I fc:.lcJri / ? H 


? bpL_p U 1 UK 1 VP. 






^7t 01 A f?i 




L.1J 


ft? \ 1A^3^ 


« /ZpT talATT/KiA LIATT 
■) Otl 1 WM 1 1 / !MU vMrl 1 1 




PT 






'•JTs. 




•J i Po 1 


"7P 1 Pi 


KJ ^ O 


tu yj *T ji- 




TP 




- {Zf-) TP IsjA yATT 


/ r J. r 




00430 




L.. 




" klA T T rOI IKIT 






fi^fTS A ACT 

Mj ^ Kj 




Wl- c 

I J c„ \^ 


Mi 






TO 


00450 




I T) 




= XFRT nowp A 


TPO A 




5u ^ o yj 




HP 




2 A 


TP' OK. 




ji.'ali'H' / It) 




T P 




« 1 fi A PJ' \ IhiT 1\ Wl — R T / 1 
■jL_M''-'r wsM 1 1 L.. ni.-— ^ // 1^ 




~? APi"1T 




nET, rWJ.!:.. iO 


i n 

l~U 


















7 i Po 1 OUO T 


7F2C 


20F9 


00500 




JR 


NZ? REA020 


;loop if busy 


7F2E 


DD7E01 


00510 




LD 


A, ( IX+1 ) 


;GET TRACK NUHBER 


7F31 


32EF37 


00520 




LD 


( 37EFH ) 5 A 


OUTPUT TRACK # 


7F34 


C5 


00530 




PUSH 


BC 


; WASTE TIME 


7F35 


CI 


00540 




POP 


BC 




7F36 


3E17 


00550 




LD 


A, 17H 


;beek COMHAND 


7F38 


32EC37 


00560 




LD 


(37ECH) ) A 


; OUTPUT 


7F3B 


C5 


00570 




PUSH 


BC 


; WASTE TIME 


7F3C 


01 


00580 




POP 


BC 




7F3D 


C5 


00590 




PUSH 


BC 




7F3E 


CI 


00600 




POP 


BC 




7F3F 


3AEC37 


00610 


REA030 


LD 


Ai (37ECH) 


;get status 


7F42 


CB47 


00620 




BIT 


0, A 


;TEST BUSY 


7F44 


20F9 


00630 




JR 


NZ> REA030 


;locsp if busy 


7F46 


E698 


00640 




AND 


98H 


;TEST FOR norhal compl 


7F4S 


202 C 


00650 




JR 


NZ» REA090 


;go if abnorhal 


7F4A 


DD7E02 


00660 




LD 


A, ( IX+2) 


;get sector # 


7F4D 


32EE37 


00670 




LD 


(37EEH) 1 A 


; OUTPUT 


7F50 


C5 


00680 




PUSH 


BC 


; waste tihe 


7F51 


CI 


00690 




POP 


BC 




7F52 


21EC37 


00700 




LD 


HL» 37ECH 


;disk address 


7F55 


DD5E03 


00710 




LD 


E, ( IX+3) 


;PUT buffer address in DE 



161 



7F5S 


DD5604 


00720 


LD 




D, ( IX+4) 






7F5B 


3E8C 


00730 


LD 




A5 8CH 




; READ COMMAND 


7F5D 


77 


00740 


LD 




(HL) 5 A 




; OUTPUT 


7F5E 


C5 


00750 


PUSH 




BC 




; WASTE TIME 


7F5F 


CI 


00760 


POP 




BC 






7F60 


C5 


00770 


PUSH 




BC 






7F61 


CI 


00780 


POP 




BC 






7F62 


01 EF-37 


00790 


LD 




P.r 1 "57FFH 




; DATA RFfi ADDRESS 


7F65 


7E 


00R00 RFA040 


LD 




A 9 ( HL ) 




; fiFT STATUS 


7F66 


0F 


008 1 


RRCA 








- Aj T /TM 


7F67 


3008 


O .iL. lU 






S'4\-^? i\ C. M «y _i ttJ 




" /rri TP nfiMP 

S M X r L/ 1 M El 


7F69 


0F 














7FAA 

1 r OH 






TP 




Kir . RPAfi?1A<7J 




« (CA TP MAT np/ti 


7FAr 


0A 


f?J Pipe: 171 






A - f P. r ) 




» frpx p,VTP 


7F6D 


1 2 




LD 




( Q£ ) 5 ^ 






7F6E 


1 3 


00870 


INC 




DE 




? T NrRFMFMT MFMORY PIMTR 


7F6F 


1SF4 


00flR0 

kJ (CI O U «~f 


JR 








; 1 OOP TIL DONF 


7F7i 


3AEC37 


00890 REA050 


LD 




A 5 (37ECH) 




; GET STATUS 


7F74 


E61 C 


00900 


AND 




1 CH 




; CHFCK FOR PROPER STATUS 


7F7jt, 




00910 RFA090 


LD 








• qT(-)RF STATUS 


7F79 


DDEl 


00920 


POP 




IX 




7 RESTORE REGISTERS 


7P7g 


E 1 


00930 


POP 




HL 






7F7C 


Dl 


00940 


POP 




DE 






7F7D 


01 


00950 


POP 




E?.C 






7F7E 


Fl 


00960 


POP 




AF 






7F7F 


C9 


00970 


RET 








; RETURN TO CALLING PROG 


0000 




00980 


END 










00000 TOTAL 


ERRORS 
















RE ADDS DECIHAL 


VALUES 










245 5 197> 


2135 


22 


95 221 5 2295 2 








2215 225 5 


221 5 


12 


65 05 605 


71 5 


1 -~.p 7 






165 2535 


505 2 


24 5 


555 22I5 


1 26 5 


5 , 1835 32 5 






85 335 05 


05 435 


1 25 5 1805 


32 5 


251 5 585 






2365 55 5 


2035 


71 5 


325 2495 


221 5 


1265 1) 505 






2395 55 5 


1975 


193 


5 625 235 


505 


2365 55 5 1975 






193 5 197 5 


1935 


58 


5 2365 55 5 


203 


5 71 5 325 2495 






2305 1525 


325 


445 


221 5 1265 


25 








197 5 1935 


335 


236 


5 555 221 5 


94 5 


35 221 5 865 






45 625 1405 1195 


1975 193) 


197 5 


1935 I5 2395 






55 5 1265 


155 485 


85 155 4B5 


249 


5 105 I85 






195 245 2 


445 585 


236 > 55 5 2 


305 


285 22I5 119. 






65 221 5 2 


25 5 2 


25 5 


2095 1935 


241 


5 20 1 



CHKSUM= 12 



RESTDS: RESTORE DISK 

System Configuration 
Model I. 

Description 

RESTDS performs a restore operation on disk drive 1 through 4. The disk drive 
head is moved over track 0. RESTDS is an "initialization" procedure for 
READDS and WRDSEC to reset the disk to a known configuration. 

Input/Output Parameters 

On input, the L register contains the drive number of the disk drive to be used, 
through 3 (corresponding to drives 1 through 4). The H register is set to if a 
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"wait after select" is to be done, or to a 1 if "no wait" is to occur. The wait is 
used if no current disk operation is taking place and the disk drive motor is not 
spinning. 

On output, the disk head is restored over track 0. If the operation is successful, 
HL is returned with a zero result. If a disk error has occurred, HL is returned 
with a nonzero result. 



OUTPUT 

H L 



., # 0=ERROR 
1 



Algorithm 

The disk drive number in L is first converted to the proper select configuration 
at RES010. The select byte is then output to disk memory-mapped address 
37E0H to select one of the disk drives. 

The wait bit is then examined. If this bit is a zero, the loop at RES015 counts HL 
through 65,536 counts to wait until the disk drive motor is up to speed before 
continuing. 

The disk status is then examined {RES020). If the disk is not busy, a restore 
command (3) is sent to the disk controller command register at address 37ECH. 
A series of time-wasting instructions is then done. 

The code at RES030 gets the disk status after completion of the restore, ANDs it 
with a "proper result" mask, and returns the status in HL. 

Sample Calling Sequence 



NAME OF SUBROUTINE? RESTDS 
HL VALUE? WAIT, DRIVE 
PARAMETER BLOCK LOCATION? 
MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 38000 
SUBROUTINE EXECUTED AT 3B000 
INPUT.- OUTPUT: 
HL= HL= STATUS = OK 



NAME OF SUBROUTINE? 



Program Listing 



7F00 




00100 


ORG 7F00H ; 0522 






001 10 


; ******************************************************** 






00 1 20 


;* RESTORE DISK. PERFORMS A RESTORE OPERATION ON DISK. » 






00130 


;* INPUT: H=0 IF WAIT AFTER SELECT, 1 IF NO WAIT * 






00140 


;* L=DRIVE NUMBER, 0-3 * 






00150 


!♦ OUTPUT :HL=0 FOR OK, <>0 FOR ERROR * 






00160 


; ******************************************************** 






00170 




7F00 


F5 


00180 


RESTDS PUSH AF ; SAVE REGISTERS 


7F01 


C5 


00190 


PUSH BC 


7F02 


CD7F0A 


00200 


CALL 0A7FH ; ***GET DRIVE #«** 


7F05 


7D 


002 1 


LD A , L ; PUT IN A 


7F06 


3C 


00220 


INC A ; INCREMENT BY ONE 



INPUT 



0=WAIT, 
1 NO WAIT 



DRIVE #,0-3 



0=OK 
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7F07 


47 


00230 




LD 


B 5 A 




7F0B 


3E80 


00240 




LD 


A) S0H 


? HA^K PDF? roixiUFRmow 


7F0A 


07 


00250 


RFqrai m 

i \ W 1. J <w J. MJr 


RLCA 




^rOhiUPRT Tc") ADIIRFRR 

3 M V c r\ 1 1 \.' rlL/ U R £_ s_J o 
























1 n 




-qpf PPT DRTUF 


7F10 


7C 


00280 




LD 


A» H 


sKFT UiATT /MD IaIAIT 


7F1 1 
/ n X i. 


P. 7 






(")R 


A 


7 1 CO f 


/ r i ji. 




00300 




JR 






7F14 


1 0000 


00310 




LD 


HL ! 


?yAIT COUNT 


7F17 


2B 


00320 


REB015 


DEC 


HL 


% DFI AV 1 OOP A 


7FIS 


7D 


00130 




LD 


A» L 


. TPqT DONE 4 


7F19 


B4 


00340 




OR 


H 


1 4 


7F1 A 


20FB 


00350 




JR 


KIT, DFqat 5 


;l OOP UNTIL HL=0 7/12 


7F 1 C 




00360 


DFCB-7.-0 

1 S lw_ w s-f X. 


LD 


At 1 17FCH ) 




7F1F 


CB47 


00370 




BIT 


05 A 


; TEST BUSY 


7F21 


20F9 


00380 




JR 




? fiO IF RliRV 


7F23 


3E03 


00390 




LD 


Ai 3 


prrq-r^-jop rOHHAWn 

7 nC-CJ t v'fAE— ft fO!»lU 


7F25 


32EC37 


00400 




LD 




! OUTPUT TO DISK 


7F28 


C5 


00410 




PUSH 


BC 




7F29 


CI 


00420 




POP 


BC 




7F2A 


C5 


00430 




PUSH 


BC 




7F2B 


CI 


00440 




POP 


BC 




7F2C 


3AEC37 


00450 


RES030 


LD 


A 5 (37ECH) 


;GET STATUS 


7F2F 


CB47 


00460 




BIT 


0, A 


!TEST BUSY 


7F31 


20F9 


00470 




JR 


NZ > RES030 


;G0 IF BUSY 


7F33 


E698 


00480 




AND 


98H 




7F35 


AF 


00490 




LD 


f A 




7F36 








1 n 


n 5 if-j 




7F3B 


CI 


00510 




POP 


BC 


; RESTORE REGISTERS 


7F39 


Fl 


00520 




POP 


AF 




7F3A 


C39A0A 


00530 




JP 


0A9AH 


!***RETURN STATUS*** 


7F3D 


C9 


00540 




RET 




; NON-BASIC RETURN 


0000 




00550 




END 







00000 TOTAL ERRORS 



RESTDS DECIHAL VALUES 



245) 197> 205! 127) 10? 125) 60» 71, 62» 128» 
71 16! 253> 505 224! 55! 124! 183! 32) Ss 
33) 0! 0! 43) 125! 180! 32! 251) 58) 236) 
55) 203! 7l! 32) 249) 62) 3) 50! 236) 55) 
197) 193) 197! 193) 58) 236) 55) 203) 71) 32) 
249! 230) 152) 111) 38) 0) 193, 241) 195, 154, 
10! 201 



CHKSUH= 197 



RKNOWT: READ KEYBOARD WITH NO WAIT 



System Configuration 
Model I, Model IH. 



Description 

RKNOWT reads the keyboard and returns immediately after scanning all keys 
to determine if a keypress has occurred. If a keypress has occurred, the subrou- 
tine returns with the key code; if no keypress has occurred, the subroutine 
returns with 0. The key position is converted to a code from a user-specified 
table of codes. Normally, these codes would be the ASCII codes for the keys on 



164 



the keyboard, but the user may substitute his own codes for special key func- 
tions. Both upper- and lower-case keys are translated, and all keys are read 
including BREAK, CLEAR, up arrow, down arrow, right arrow, and left arrow. 



Input/Output Parameters 

On input, the HL register pair contains the address of RKNOWT. This address is 
the same as the USR location in BASIC or the address in the assembly-language 
call. It is used to make all of the code in RKNOWT relocatable. 

On output, HL contains the keycode if a key was pressed, or if no key was 
detected. 



INPUT 



OUTPUT 



ADDRESS OF RKNOWT 
1 



H 


L 




CHARACTER 





CODE OR 



Algorithm 

The basic problem in RKNOWT is to detect if a key is being pressed, and if it 
is, to convert its row-column coordinates into an index to a table to obtain the 
key code. 

The table is at RKNTAB. RKNTAB is a 120-byte table that contains all the trans- 
lation codes for the keys. The row arrangement is determined by the electrical 
connections to the keys, shown below. The first 56 bytes of the table represent 
keys with no SHIFT. There is a "gap" of 8 unused bytes to simplify coding, and 
then 56 additional bytes that represent keys with a SHIFT. 



Keyboard layout and codes. 

BIT 








1 


2 


3 


4 


5 


6 


7 


ROW0 


@ 


A 


B 


C 


D 


E 


F 


G 


1 


H 


1 


J 


K 


L 


M 


N 





2 


P 


Q 


R 


S 


T 


U 


V 


W 


3 


X 


Y 


Z 












4 





! 
1 


2 


# 
3 


$ 

4 


% 
5 


& 
6 


7 


5 


( 

8 


) 

9 




+ 


< 




> 


? 

/ 


6 


ENTER 


CLEAR 


BREAK 


t 


i 






SPACE 


7 


SHIFT 





RKNOWT/RKWAIT 
HEXADECIMAL TABLE VALUES 
FOR STANDARD ASCII 



40,41,42,43,44,45,46,47 



48.49.4A,4B,4C,4D.4E,4F 



50,51,52,53.54.55,56,57 



CO 
O 



(GAP) 



I 
</5 



58,59,5A,0,0,0,0.0 



30.31,32.33,34,35,36,37 



38.39,3A,3B,2C,2D,2E,2F 



0D,2F,01,5B,5C,5D,5E,20 



20,61.62,63,64,65,66,67 

68,69,6A,6B,6C,6D,6E,6F 

70,71,72.73,74,75,76,77 

78,79, 7A,0,0,0,0,0 

20,21.22,23,24,25,26,27 

28,29,2A,2B,3C,3D,3E,3F 

0D,2F,01,5B,5C,5D.5E,20 
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The loop at RKN030 scans the seven rows of the keyboard and looks for a 
keypress in a row. The address of row is 3801 H, and this is initially put 
into HL. If no key is found in rowO, the L portion of the address is shifted left to 
.produce an address in HL of 3802 H. This process is repeated for the additional 
rows until all seven rows have been scanned, as evidenced by a one bit in bit 7 
of L. if no key has been found (A register is a zero), a return with HL equal to 
zero is made at RKN090. 

If any row is nonzero when read, RKN040 is entered. At this point, the row 
address of 3801 H, 3802 H, 3804H, etc., is in HL; the code at RKN050 converts 
this row address to a row number to 7 times 8. This "index" of 0, 8, 16, 24, 32, 
40, or 48 is saved. 

The A register contains the column bits for the row. One column bit (or more 
for multiple key presses) is a one. The code at RKN070 converts the column bit 
into a column number of 7 to 0. This column number is then added to ROW*8. 

Next, the SHIFT key is read by "LD A,(3880H)." The shift key bit is aligned and 
merged with COL+ ROW*8 to produce an index ofSHIFT*64+ ROW*8+ COL. 
This index is then added to the start of RKNOWT and the displacement of the 
code table, RKNTAB, to point to a location within the table corresponding 
to the key pressed. The code just prior to RKN090 accesses the code table to 
pick up the proper code for the key that has been pressed. If multiple keys in 
the same row have been pressed, the rightmost key is detected and the others 
ignored. 

Sample Calling Sequence 

NAME OF SUE'. ROUTINE? RKNOWT 

HL VAL-UE? 36788 ADDRESS OF RKNOWT 

PAf<AMETER E'.LOCK LOCATION? 

MEHORY BLOCK 1 LOCATION? 

MOVE SUBROUTINE TO? 36788 

SUBROUTINE EXECUTED AT 367S8 

INPUT: OUTPUT: 

HL= 36788 HL= NO KEY PRESSED 

NAME OF SUBROUTINE? 
Notes 

1. The eight bytes between lower and upper case may contain any values. 

2. The calling program must "time out" keyboard debounce. 

Program Listing 

7F00 00100 ORG 7F00H 5 0522 

001 10 ; #»»#*#«*♦#«#»***»*##♦»*##***#*«♦***#*********♦♦*«****»* * 

00120 ;» READ KEYBOARD NO WAIT. READS KEYBOARD AND RETURNS * 
00130 ;* WITH NO WAIT. * 
00140 ;* INPUT: HL=> ADDRESS OF RKWAIT * 
00150 I* OUTPUT !HL=CHARACTER READ OR IF NO KEY PRESSED * 
00160 !#**♦#»**♦*»**♦*♦**#♦****♦♦**♦****♦♦***♦♦**♦*♦**********♦ 
00170 ; 
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7F00 


F5 


WW low 


KnNuW 1 


rUbri 


Ar 




/rml 


ld 






rUon 






7F02 


DDES 


00200 




PUSH 


I X 




7F04 


CD7F0A 


00210 




CALL 


0A7FH 


; ♦**GET BASE ADDRESS*** 


7F07 


E5 


00220 




PUSH 


HL 


; TRANSFER TO IX 


7F08 


DDEl 


00230 




POP 


IX 




7F0A 


210138 


00240 


RKN020 


LD 


HLf 3801H 


; ADDRESS OF FIRST ROW 


7F0D 


7E 


00250 


RKN030 


LD 


Ai (HL) 


?SET NEXT ROW 


7F0E 


87 


00260 




OR 


A 


ITEST FOR KEY 


7F0F 


200B 


00270 




JR 


NZi RKN040 


ISO IF KEY PRESS 


7F11 


CB25 


00280 




SLA 


L 


;GET NEXT ROW ADDRESS 


7F13 


CB7D 


00290 




BIT 


79L 


ITEST FOR LAST ADDR 


7F15 


28F6 


00300 




JR 


Z 5 RKN030 


7 GO IF NO 1 LAb i 


7F17 


210000 


00310 




LD 


HL) 


;0 FOR NO KEY 


7F1A 


1828 


00320 




JR 


RKN090 


?GO TO RETUrtN 


7F1 C 


4F 






LU 


« A 


= GAliC Cfsl 1 IMK! P T TQ 
rj OHVC. U*.'i_Ui IN oi. iO 


fr ID 


AC" 

Ar 






Ynp 

AUn 


A 
M 


" n PAP rrii iMT 


7F1E 


CB3D 


00350 


KKNlODlc 


oKL 


1 

L 




7F20 


3804 


13 133610 




T O 

J K 


C» Kr\Nlo6(o 


5 oU 1 r UNc. 1:5 1 1 r UUNU 


7F22 


C608 


00370 




ADD 


A» a 


; R0W*8 


7F24 


18F8 


00380 




JR 


RKN050 


;LOOP TIL DONE 


7F26 


06FF 


00390 


RKN060 


LD 


B» 0FFH 


; INITIALIZE COUNT 


7F28 


04 


00400 


RKN070 


INC 


B 


;FIND COLUMN BIT 


7F29 


CB39 


00410 




SRL 


C 


5 SHI FT OUT COLUMNS 


7F2B 


30FB 


00420 




JR 


NC» RKN070 


;LOOP TIL FOUND 


7F2D 


80 


00430 




ADD 


A) B 


; R0W*8+C0L 


7F2E 


4F 


00440 




LD 


C, A 


!NOW IN C 


7F2F 


3AB038 


00450 




LD 


A, (3S80H) 


;GET SHIFT BIT 


7F32 


0F 


00460 




RRCA 




;N0W IN BIT 7 


7F33 


0F 


00470 




RRCA 




;NOW IN BIT 6 


7F34 


81 


00480 




ADD 


A, C 


! SHIFT*64+R0W*8+C0L 


7F35 


4F 


00490 




LD 


C, A 


; INDEX TO C 


7F36 


0600 


00500 




LD 


Bi 


SNOW IN BC 


7F38 


DD09 


00510 




ADD 


IX) BC 


5 BASE PLUS INDEX 


7h 3A 


01 4C00 


00520 




LD 


BC» RKNTAB 


; TRANSLATION TABLE 


7F3D 


DD09 


00530 




ADD 


IX? BC 


; BASE+ 1 NDEX+D I SPL 


7F3F 


DD6E00 


00540 




LD 


L» ( IX+0) 


IGET CHARACTER 


7F42 


2600 


00550 




LD 


H» 


; NOW I N HL 


7F44 


DDEl 


00560 


RKN090 


POP 


I X 


; RESTORE REGISTERS 


7F46 


CI 


00570 




POP 


BC 




7F47 


Fl 


00580 




POP 


AF 




7F48 


C39A0A 


00590 




JP 


0A9AH 


;««»RETURN WITH ARGUMENT*** 


7F4B 


C9 


00600 




RET 




; NON-BASIC RETURN 


004 C 




00610 


RKNTAB 


EQU 


♦-RKNOWT 


; TRANSLATION TABLE 


0008 




00620 




DEFS 


8 


!N0 SHIFT ROW 


0008 




00630 




DEFS 


8 


; 1 


0008 




00640 




DEFS 


8 


; 2 


0008 




00650 




DEFS 


8 


; 3 


0008 




00660 




DEFS 


8 


; 4 


0008 




00670 




DEFS 


8 


; 5 


0008 




00680 




DEFS 


8 


6 


0008 




00690 




DEFS 


8 


;NOT USED 


0008 




00700 




DEFS 


8 


; SHI FT ROW 






UW Z 1 to 




Uhrb 





! 1 


0008 




00720 




DEFS 


8 


; 2 


0008 




00730 




DEFS 


8 


; 3 


0008 




00740 




DEFS 


8 


; 4 


0008 




00750 




DEFS 


8 


; 5 


0008 




00760 




DEFS 


8 


; 6 


0000 




00770 




END 







00000 TOTAL ERRORS 



RKNOWT DECIMAL VALUES 



245? 197? 221? 229? 205? 127? 10? 229? 221? 225? 
33? 1? 56? 126? 183? 32? 11? 203? 37? 203? 
125? 40? 246? 33? 05 0? 24? 40? 79? 175? 
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203» 61 > 56) 4! 19Si 8? 24? 248» 6) 255» 
4, 203i 57, 4S> 251, 128, 79, 58, 128, 56, 
15, 15, 129, 79, 6, 0, 221, 9, 1, 76, 
0, 221, 9, 221, 110, 0, 38, 0, 221, 225, 
193, 241, 195, 154, 10, 201 



CHKSUH= 29 



RKWAIT: READ KEYBOARD AND WAIT 



System Configuration 
Model I, Model III. 



Description 

RKWAIT reads the keyboard and returns after a key has been pressed. The key 
position is converted to a code from a user-specified table of codes. Normally, 
these codes would be the ASCII codes for the keys on the keyboard, but the 
user may substitute his own codes for special key functions. Both upper- and 
lower-case keys are translated, and all keys are read including BREAK, CLEAR, 
up arrow, down arrow, right arrow, and left arrow. 



Input/Output Parameters 

On input, the HL register pair contains the address of RKWAIT. This address is 
the same as the USR location in BASIC or the address in the assembly-language 
call. It is used to make all the code in RKWAIT relocatable. 

On output, HL contains the keycode. 



INPUT 



ADDRESS OF RKWAIT 



OUTPUT 



H 


L 





CHARACTER 




CODE 



Algorithm 

The basic problem in RKWAIT is to detect if a key is being pressed and if it is, 
to convert its row column coordinates into an index to a table to obtain the key 
code. 

The table is at RKWTAB. RKWTAB is a 120-byte table that contains all the 
translation codes for the keys. The row arrangement is determined by the elec- 
trical connections to the keys, shown below. The first 56 bytes of the table 
represent keys with no SHIFT. There is a "gap" of 8 unused bytes to simplify 
coding, and then 56 additional bytes that represent keys with a SHIFT. 
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BIT RKNOWT/RKWAIT 

HEXADECIMAL TABLE VALUES 








1 


2 


3 


4 


5 


6 


7 




FOR STANDARD ASCII 


ROW0 


® 


A 


B 


C 


D 


E 


F 


G 




40,41,42,43,44,45,46,47 


1 


H 


1 


J 


K 


L 


M 


N 







48,49,4A,4B,4C,4D,4E,4F 


2 


P 


Q 


R 


S 


T 


U 


V 


W 




50,51,52,53,54,55,56,57 


3 


X 


Y 


Z 












NO SHIFT 


58,59,5A,0,0,0,0,0 


4 





! 
1 


2 


# 
3 


$ 
4 


% 
5 


& 
6 


7 


30,31,32.33.34,35,36,37 


5 


( 

8 


) 

9 




+ 


< 




> 


? 

/ 




38,39,3A,3B,2C,2D,2E,2F 


6 


ENTER 


CLEAR 


BREAK 


T 


i 






SPACE 




0D,2F,01,5B,5C,5D,5E,20 


7 


SHIFT 
















(GAP) 


0,0,0,0,0,0,0,0 


Keyboard layout and codes. 










SHIFT 


20,61,62,63.64,65,66,67 

68,69,6A,6B,6C,6D,6E,6F 

70,71,72,73,74,75,76,77 

78,79,7A,0,0,0,0,0 

20,21,22,23,24,25,26,27 

28,29,2A,2B,3C,3D,3E,3F 

0D,2F,01,5B,5C,5D,5E,20 



The loop at RKW030 scans the seven rows of the keyboard and looks for a 
keypress in a row. The address of row is 3801 H, and this is initially put 
into HL. If no key is found in row 0, the L portion of the address is shifted left to 
produce an address in HL of 3802 H. This process is repeated for the additional 
rows until all seven rows have been scanned, as evidenced by a one bit in bit 7 
of L. If no key has been found after seven rows, a loop is made back to RKW020 
to repeat the scan. 

If any row is nonzero when read, RKN040 is entered. At this point, the row 
address of 3801 H, 3802 H, 3804H, etc., is in HL; the code at RKW050 converts 
this row address to a row number of to 7 times 8. This "index" of 0, 8, 1 6, 24, 
32, 40, or 48 is saved. 

The A register contains the column bits for the row. One {or more for multiple 
key presses) is a one. The code at RKN070 converts the column bit into a 
column number of 7 to 0. This column number is then added to ROW*8. 

Next, the SHIFT key is read by "LD A,(3880H)." The shift key bit is aligned and 
merged with COL+ ROW*8 to produce an index of SHIFT*64+ ROW*8+ COL. 

At this point a "debounce delay" of 50 milliseconds is performed. This ensures 
that the key is not reread if RKWAIT is reentered immediately by the calling 
program. 

The index is then added to the start of RKWAIT and the displacement of the 
code table, RKWTAB, to point to a location within the table corresponding to 
the key pressed. The code just prior to RKW090 accesses the code table to pick 
up the proper code for the key that has been pressed. If multiple keys in the 
same row have been pressed, the rightmost key is detected and the others 
ignored. 
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Sample Calling Sequence 



NAME OF SUBROUTINE? RKWAIT 

HL VALUE? 38000 ADDRESS OF RKWAIT 

Pr,F<AMETER BLOCK LOCATION? 

MEHORY BLOCK 1 LOCATION? 

MOVE SUBROUTINE TO? 38000 

SUBROUTINE EXECUTED AT 38000 

INPUT: OUTPUT: 

HL= 38000 HL= 65 "A" KEY, NO SHIFT 



NAME OF SUBROUTINE? 
Notes 

1 . The eight bytes between lower and upper case may contain any values. 

2. The debounce delay may be adjusted as required. A 50 millisecond delay 
is about 20 characters per second or 240 words per minute. Change locations 
7F33H and 7F34H to alter the debounce delay. 



Program Listing 



7F00 



7F00 
7F01 

7F02 
7F04 
7F07 
7F08 
7F0A 
7F0D 
7F0E 
7F0F 
7F11 
7F13 
7F15 
7F17 
7F19 
7F1A 
7F1B 
7F1D 
7F1F 
7F21 
71 23 
7F25 
7F26 
7F28 

7F2A 
7F2B 
7F2C 
7F2F 
7F30 
7F31 
7F32 
7F35 



F5 
C5 

DDE5 

CD7F0A 

E5 

DDEl 

210138 

7E 

B7 

2008 

CB25 

CB7D 

28F6 

ISFl 

4F 

AF 

CB3D 

3804 

C608 

18F8 

06FF 

04 

CB39 

30FB 

80 
4F 

3A8038 

0F 
0F 
81 

21 100F 
01FFFF 



00100 

00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 

00370 
00380 
00390 
00400 
00410 

00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 



ORG 7F00H ; 0522 

; **■»##**«•***»***#*#*#•)«■****#####*•*«###«■#**#*«*«*■*#**####*# 
;* READ KEYBOARD AND WAIT. READS KEYBOARD AND WAITS * 
■* UNTIL KEY PRESS. * 
;* INPUT: HL=> ADDRESS OF RKWAIT * 
;* OUTPUT : HL=CHARACTER READ ♦ 
; *#*«*#«###♦###**#*♦#»**#*##*»#♦#«##♦♦##**«**■»♦*««*«*#*** 



RKWAIT 



RKW020 
RKW030 



RKW040 
RKW050 



RKW060 
RKW070 



PUSH 

PUSH 

PUSH 

CALL 

PUSH 

POP 

LD 

LD 

OR 

JR 

SLA 

BIT 

JR 

JR 

LD 

XOR 

SRL 

JR 

ADD 

JR 

LD 

INC 

SRL 

JR 

ADD 

LD 

LD 

RRCA 

RRCA 

ADD 

LD 

LD 



AF 
BC 
IX 

0A7FH 

HL 

IX 

HLi 3801H 
A. (HL) 
A 

NZ? RKW040 
L 

75L 

Z » RKW030 

RKW020 

C» A 

A 

L 

C, RKW060 
A) 8 
RKW050 
B5 0FFH 

B 
C 

NC» RKW070 

A.B 

C» A 

A! (3880H) 



A? C 

HL, 3856 
BC,--1 



; SAVE REGISTERS 



;#**eET BASE ADDRESS*** 
; TRANSFER TO IX 

; ADDRESS OF FIRST ROW 
;GET NEXT ROW 
;TEST FOR KEY 
;eO IF KEY PRESS 
;GET NEXT ROW ADDRESS 
;TEST for LAST ADDR 
;S0 IF NOT LAST 
;LAST-L00P 'TIL KEY 
;SAVE COLUMN BITS 
; CLEAR COUNT 

; SHI FT OUT ROW ADDRESS 

;G0 IF ONE BIT FOUND 

; R0W*8 

; LOOP TIL DONE 

; INITIALIZE COUNT 
;FIND COLUMN BIT 
; SHIFT OUT COLUMNS 
;L00P 'TIL FOUND 

;R0W*8+C0L 

;now in C 

;GET SHIFT BIT 

;N0W IN BIT 7 

; NOW IN BIT 6 

; SH I FT*64+R0W*S+ COL 

; DELAY COUNT (50 MS) 

;DECREHENT VALUE 
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7F38 


09 


00500 


RKW080 


ADD 


HL, BC 


! DELAY FOR 


BOUNCE 11 


7F39 


38FD 


00510 




JR 


C, RKW080 


;L00P 'TIL 


HL NEG 7/12 




4F 


00520 




LD 


C» A 


; INDEX TO 


c 












t_ij 




SNOW IN BC 






{ ~ v?£- 


1/1/ KJ V 


00540 




ADD 


I X 5 BC 


;BASE PLUS 


INDEX 










L-iJ 




; TRANSLATION 


TABLE 


7F43 


DD07 


00560 




ADD 


I X » BC 


; BASE+ 1 NDE X +D I SPL 




L/JUoEKc/Kj 






1 n 


1 , ( T Y+D| ) 

L_ 5 \ JL A ~SCJ / 


;GET CHARACTER 


/ r '*to 




00580 




LD 


H? 


;now in HL 








JL/l/Ct J. 


00590 




POP 


IX 


; RESTORE REGISTERS 


7F4C 


CI 


00600 




POP 


BC 








7F4D 


Fl 


00610 




POP 


AF 








7F4E 


C39A0A 


00620 




JP 


0A9AH 


;»«*RETyRN 


WITH ARGUMENT*** 


7F5 1 


C9 


00630 




RET 




; NON-BASIC 


RETURN 


0052 




00640 


RKWTAB 


EQU 


$-RKWAIT 


; TRANSLATION 


TABLE 






00650 




DEFB 


8 


;N0 SHIFT 


ROW 






00660 




DEFS 


8 


5 




1 


0008 




00670 




DEFS 


8 


; 




2 


01108 




00680 




DEFS 


8 


5 




3 


0008 




00690 




DEFS 


8 


; 




4 


0008 




00700 




DEFS 


8 


! 




5 


0008 




00710 




DEFS 


8 


; 




6 


0008 




00720 




DEFS 


8 


;N0T USED 






0008 




00730 




DEFS 


8 


; SHIFT ROW 







0008 




00740 




DEFS 


8 


; 




1 


0008 




00750 




DEFS 


8 


; 




3 


0008 




00760 




DEFS 


8 


; 




3 


0008 




00770 




DEFS 


8 






4 


0008 




00780 




DEFS 


8 


5 




5 


0008 




00790 




DEFS 


8 


; 




6 


0000 




00800 




END 











00000 TOTAL ERRORS 



RKWAIT DECIMAL VALUES 



2455 197> 2215 229> 205^ 127» 10> 229, 221? 225 > 

33? ii 56, 126? 183? 32; S> 203? 37^ 203> 

125> 40, 246> 24! 241 5 79> 175? 203^ 61? 56. 

4) 198! 8! 24, 248, 6, 255, 4, 203, 57, 

48, 251, 128, 79, 58, 128, 56, 15, 15, 129, 

33, 16, 15, 1, 255, 255, 9, 56, 253, 79, 

6, 0, 221, 9, 1, 82, 0, 221, 9, 221, 

110, 0, 38, 0, 221, 225, 193, 241, 195, 154, 

10, 201 



CHKSUM= 69 



SCDOWN: SCROLL SCREEN DOWN 



System Configuration 
Model I, Model III. 



Description 

SCDOWN scrolls the video display down one line. Scrolling down causes lines 
1 through 15 to be moved up into line positions through 14. Scrolling can be 
used in displaying text or data that cannot be displayed in the 1024 bytes of one 
video screen. 



when scrolling down, line 15 is blanked in preparation for displaying the next 
line "below" the screen. 



Input/Output Parameters 

There are no input or output parameters. A call to SCDOWN simply causes a 
scroll down of one line, with a return to the calling program immediately fol- 
lowing. 



INPUT 



NONE 

— 1_ — 



OUTPUT 
H L 



UNCHANGED 



Algorithm 

Scrolling is easily and efficiently handled by use of the Z-80 "block move" 
instructions. The LDIR moves a block of data from one area of memory to 
another, transferring the data "beginning to end" (lower-valued memory loca- 
tions to higher-valued memory locations) of each block, one byte at a time. 

The LDIR automatically transfers video memory bytes to locations 64 bytes 
"down" in memory. A total of 960 bytes are transferred as the first line "disap- 
pears." 

After the transfer, the last line has been moved up to the second to last line, but 
still remains on the bottom of the screen. This line is "blanked" by a fill of 64 
bytes of blank characters at SCD010. 



Sample Calling Sequence 



NAME OF SUBROUTINE? SCDOWN 
HL VALUE? 

PARAMETER BLOCK LOCATION? 
MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 36666 
SUBROUTINE EXECUTED AT 36666 
INPUT: OUTPUT : 



NAME OF SUBROUTINE? 



Program Listing 



7F00 00100 ORG 7F00H 5 0522 

001 10 ; ******************************************************** 

00120 ;* SCROLL SCREEN DOWN. SCROLLS SCREEN DOWN ONE LINE. * 
00130 ;» INPUT: NONE * 
00140 ;* OUTPUT: SCREEN SCROLLED DOWN * 
00150 5 ******************************************************** 

00160 ; 

7F00 F5 00170 SCDOWN PUSH AF ; SAVE REGISTERS 

7F01 C5 00180 PUSH BC 

7F02 D5 00190 PUSH DE 

7F03 E5 00200 PUSH HL 

7F04 21403C 00210 LD HLs3C40H ; SOURCE 
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7FB7 


1 1003C 


00220 


LD 


DE> 3C00H 


7F0A 


01 C003 


00230 


LD 


BC> 960 


7F0D 


EDB0 


00240 


LOIR 




/ r \ur 


1 f^i7i'~iSZ 

X. I LWor 






HL 9 or OiSH 


/r IjC 






LU 


A? ' ' 










P - AA 


TC 1 A 


/ / 






\ fiL, / 9 H 


7F1 7 


23 


002*90 


T Kir 


141 
rlL. 


7F1S 


10FC 


00300 




O wL/ifJ J. KJ 




P" 1 
r_ i 




PAP 


riL. 


7F1B 


Dl 




PAP 


L/El 


7F1C 


Ci 


00330 


POP 


EC 


7F1D 


Fl 


00340 


POP 


AF 


7F1EI 


C9 


00350 


RET 




0000 




00360 


END 




00000 TOTAL 


ERRORS 







1 DESTINATION 
!# OF BYTES 

5 SCROLL 
;LINE TO BE BLANKED 
;L0AD blank CHARACTER 
;64 CHARACTERS ON LINE 

5 STORE BLANK IN LINE 

!BUHP POINTER 

SLOOP IF NOT DONE 
; RESTORE RE(5ISTERS 



; RETURN 



SCDOWN DECIMAL VALUES 



245i 197> 213? 229» 33» bh, 60? 17? 0? 60, 
1? 192, 3, 237, 176» 33, 192, 63, 62, 32, 
6, 64, 119, 35, 16, 252, 225, 209, 193, 241, 
201 



CHKSUM= 86 



SCUSCR: SCROLL SCREEN UP 



System Configuration 
Model I, Model 111. 



Description 

SCUSCR scrolls the video display up one line. Scrolling up causes lines 
through 1 4 to be moved down into line positions 1 through 15. Scrolling can be 
used in displaying text or data that cannot be displayed in the 1024 bytes of one 
video screen. 

When scrolling up, line is blanked in preparation for displaying the next line 
"above" the screen. 



Input/Output Parameters 

There are no input or output parameters. A call to SCUSCR simply causes 
a scroll up of one line, with a return to the calling program immediately fol- 
lowing. 



INPUT 

H L 

1 

NONE 



OUTPUT 



4- 



UNCHANGED 
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Algorithm 



Scrolling is easily and efficiently handled by use of the Z-80 "block move" 
instructions. The LDDR moves a block of data from one area of memory to 
another, transferring the data "end to beginning" (higher-valued memory loca- 
tions to lower-valued memory locations) of each block, one byte at a time. 

The LDDR automatically transfers video memory bytes to locations 64 bytes 
"up" in memory. A total of 960 bytes are transferred as the last line "disap- 
pears." 

After the transfer, the first line has been moved down to the second line, but 
still remains on the top of the screen. This line is "blanked" by a fill of 64 bytes 
of blank characters at SCU010. 



Sample Calling Sequence 



NAME OF SUBROUTINE? SCUSCR 
HL VALUE? 

PARAMETER BLOCK LOCATION? 
MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 41111 
SUBROUTINE EXECUTED AT 41111 
INPUTS output: 



NAME OF SUBROUTINE? 



Program Listing 



7F00 00100 ORG 7F00H 5 0522 

001 10 ; ******************************************************** 

00120 ?* SCROLL SCREEN UP. SCROLLS SCREEN UP ONE LINE. * 

00130 ;* INPUT: NONE * 

00140 ;* OUTPUT: SCREEN SCROLLED UP * 

00150 " ******************************************************** 

00160 ; 



7F00 


F5 


00170 SCUSCR 


PUSH 


AF 


;SAVE REGISTERS 


7F01 


C5 


00180 


PUSH 


BC 




7F02 


D5 


00190 


PUSH 


DE 




7F03 


E5 


00200 


PUSH 


HL 




7F04 


21S03F 


00210 


LD 


HL , 3F80H 


; SOURCE 


7F07 


1 1 C03F 


00220 


LD 


DE5 3FC0H 


; DESTINATION 


7F0A 


01C003 


00230 


LD 


BC5 960 


;# OF BYTES 


7F0D 


EDB8 


00240 


LDDR 




; SCROLL 


7F0F 


21003C 


00250 


LD 


HL5 3C00H 


;LINE TO BE BLANKED 


7F12 


3E20 


00260 


LD 


A, ' ' 


;load blank character 


7F14 


0640 


00270 


LD 


B!64 


;64 CHARACTERS ON LINE 


7F16 


77 


00280 SCU010 


LD 


( HL ) ? A 


; STORE BLANK IN LINE 


7F17 


23 


00290 


INC 


HL 


;BUMP POINTER 


7F18 


10FC 


00300 


DJN2 


SCU010 


SLOOP IF NOT DONE 


7F1A 


El 


00310 


POP 


HL 


; RESTORE REGISTERS 


7F1B 


Dl 


00320 


POP 


DE 




7F1C 


CI 


00330 


POP 


BC 




7F1D 


Fl 


00340 


POP 


AF 




7F1E 


C9 


00350 


RET 




; RETURN 


0000 




00360 


END 







00000 TOTAL ERRORS 
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SCUSCR DECIMAL VALUES 



2455 197i 2135 2295 33? 128? 63; 17? 192» 63« 
1 1 192) 3i 237? 1B4? 33? 0? 60? 62? 32? 

6? 64? 119? 35? 16? 252? 225? 209? 193? 241? 
201 

CHKSUM= 161 
SDASCI: SCREEN DUMP TO PRINTER IN ASCII 

Configuration 
Model I, Model III. 

Description 

SDASCI dumps the contents of the video display to the system line printer. 
SDASCI may be called at any time to record the contents of the screen. ASCII 
characters are printed as they appear on the screen. Graphics characters are 
printed as a period. The system line printer must be able to print 64 character 
positions across. The screen is printed as 16 lines of 64 characters. 

Input/Output Parameters 

There are no input parameters. The screen contents are printed and a return to 
the calling program is done. 

INPUT 

H L 

I 1 

NONE 



Algorithm 

The HL register pair holds the current screen location starting from 3C00H, the 
screen start. The B register is used to hold the number of characters per line, 64. 
It is decremented down to zero so that a carriage return at the end of line can 
be made to the system line printer. 

There are two loops. The main loop starts at SDA005. The inner loop handles 
each screen line and starts at SDA010. For each new line, the line character 
count of 64 is placed into the B register at SDA005. 

In the SDA010 loop, a character is loaded into A from the next character posi- 
tion. Bit 7 of the character is tested. If this bit is a one, a period is substituted for 
the graphics character. If the character is not a graphics character (SDA020), a 
20H is subtracted from the character and bit 7 is tested, if bit 7 is set, the value 
of the character is less than 20H, and 40H is added to compensate for the lower 
case option. The character is then saved in the stack while a status check is 
made of the line printer. 



OUTPUT 



UNCHANGED 

1 
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The code at SDA050 checks line printer status. When the line printer is ready, 
the character is popped from the stack and printed. The HL pointer is then 
incremented by one, and the line character count in B decremented. If B is 
zero, a carriage return is output to the line printer for the end of the line by a 
jump back to SDA040. 

SDA060 tests for a condition of -1 in the B register. If this is true, a carriage 
return has just been output, and a test is made for HL = 4000H, which marks the 
end of the dump. If H is not equal to 40H, a jump is made back to SDA005 to 
output the next line. If there is not a - 1 in B at SDA060, the current line is still 
being processed and a jump is made back to SDA010 for the next character in 
the line. 

Sample Calling Sequence 

NAME OF SUBROUTINE? SDASCI 
HL VALUE? 

PARAMETER BLOCK LOCATION? 
MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 40000 

TRS-80 ASSEMBLY LANGUAGE SUBROUTINES EXERCISER 



NAME OF SUBROUTINE? SDASCI 
HL VALUE? 

PARAMETER BLOCK LOCATION? 
MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO 
? 40000 



16SCREEN LINES 



SUBROUTINE EXECUTED AT 
INPUT: OUTPUT: 



40000 



NAME OF' SUBROUTINE? 



Notes 



1. If this subroutine is used for the Model III, make the following change in 
the listing: Substitute "OUT (0F8H),A" for "LD (37E8H),A". Replace the corre- 
sponding decimal values of "50, 232, 55" with decimal values of "21 1 , 248, 0". 

Program Listing 



71-00 



00100 ORG 7F00H 5 0520 

001 10 ; »♦♦***#*###*#♦♦**»♦*««««###»*»♦«««*#•»(■*»»♦**♦##*»»«*♦♦«*# 

00120 ?♦ SCREEN DUMP TO PRINTER. CAUSES CONTENTS OF SCREEN TO * 

00130 !* BE DUMPED TO THE SYSTEM LINE PRINTER. GRAPHICS ARE * 

00140 ;# PRINTED AS A PERIOD. * 

00150 5* INPUT: NONE * 
00160 OUTPUT: SCREEN CONTENTS PRINTED * 

00170 ; «***#**«■#****#*#*##*************#***#*#*«*##*#»#*«*#*«** 

00180 ; 
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7F00 


F5 


00190 


SDASCI 


PUSH 


AF 


;SAVE REGISTERS 


/ F ifclJ. 








PI IQW 
~ won 


Rr 














PI ICLJ 

r Uofi 


Lit 

HL. 














L-i/ 


ML. , OwicJwM 


; SCREEN START ADDRESS 


/r Wo 


mil. /g 






1 T\ 






;# OF CHARACTERS/L I NE 




/t 


ioidl24iO 




1 r\ 
LU 


A, ( ML ; 




; GET NEXT SCREEN BYTE 


7F09 


CB7F 


PI PI ''5 PI 




P. T T 


7. A 




? TEST FOR GRAPH I CS 


7F0B 


2804 


00260 




JR 


7 , SDA020 

£^ 7 W V*^ ,1^ 




5 X ~ v3nr1 nn 4, OTIC 


7F00 


3E2E 


PIP127PI 




LD 


A, ' ' 






7F0F 


180A 


00280 




JR 


Cj JL/ ri (CJ 'Tf' 5CJ 




" /^A TA POT KIT 


7h 1 1 


0620 


00290 


SDA0'"-'0 

i-J a-/ 3^ 1L/ -fl— 


SUB 


20H 




» TPQT PAP TAMTPAI 


r P J. !_} 


CB7F 






RTT 


7. A 




a r^AKlXOAl T Cr CMTT 

7 t/UN i KUL Xr ac: i 


7F 1 5 


2802 


0031 




JR 








7F17 


C640 


00320 




ADD 


As 40H 




3 AOiTli^^T PAR TAMTROI 


7F1 9 


C620 


00330 


w a-' n w 


ADD 


A, 20H 




5 RPCTADp PAR Qi IP 


7P 1 R 
/ P X O 


PS 
p -J 






PI IQH 


Mr 






/ ~ J. 






i-* ri lij -J w 


LD 


A , ( 37FRH ) 






~7tr 1 ET 

f r 1 r 


top KJ 












; MASK OUT UNUSFD R T 


f r ^ I 








rp 










20F7 






JR 


1 >> £. 7 w 4./ «J' -J BJ 




;(50 IF BUSY 


7F25 


Fl 


00390 




POP 


AF 




; RESTORE CHARACTER 


7F26 


32E837 


00400 




LD 


(37E8H) 5 A 




; PRINT CHARACTER 


7F29 


23 


00410 




INC 


HL 




;BUMP SCREEN POINTER 


7F2A 


05 


00420 




DEC 


B 




5DECREHENT CHAR CNT 


7F2B 


78 


00430 




LD 


A, B 




; GET COUNT 


7F2C 


87 


00440 




OR 


A 




"TEST 


7F2D 


2004 


00450 




JR 


NZ 5 SDA060 




;G0 IF NOT 


7F2F 


3E0D 


00460 




LD 


A, 13 




5 END OF LINE 


7F31 


18E8 


00470 




JR 


SDA040 




; OUTPUT CR 


7F33 


FEFF 


00480 


SDA060 


CP 


0FFH 




;TEST FOR -1 


71- 35 


20D1 


00490 




JR 


KIT , QDAP1 1 PI 




; STILL IN LINE 


7F37 


2B 


00500 




DEC 


HL 




5 ADJUST FOR FALSE INC 


f r ocj 










A - LJ 

rn ? r? 




; JUST PRINTED CR 


/ I OT 








rp 






;AT END OF SCREEN? 


71- 3B 


20 C9 


00530 




JR 


M7 5 SDA005 




;G0 IF NO 


7F3D 


El 


00540 




POP 


HL 


; RESTORE REGISTERS 


7F3E 


CI 






PAP 








7F3F 


Fl 


00560 




POP 


AF 






7F40 


C9 


00570 




RET 




; RETURN TO CALLING PROG 


0000 








END 








00000 TOTAL 


ERRORS 


















SDASCI 


DECIMAL 


VALUES 












245 5 


1 97 , 229 


. 33, 0, 60, 6 


. 64, 


126, 203, 








127> 


40, 4, 6 


2? 46, 24, 10, 


214, 


32, 203, 








127, 


40, 2, 198, 64, 198, 3 


2, 245, 58, 232, 








55, 230, 240, 


254, 48, 32, 


247, 


241, 50, 232, 








55, 35, 5, 120, 183, 32, 4, 


62, 


13, 24 , 








232, 


254, 255 


, 32, 209, 43, 


124, 


254, 64, 32, 








201 , 


225, 193 


, 24 1 5 20 1 







CHKSUH= 163 



SDGRAP: SCREEN DUMP TO PRINTER IN GRAPHICS 

Configuration 
Model I, Model III. 

Description 

SDGRAP dumps the contents of the video display to the system line printer. 
SDGRAP may be called at any time to record the contents of the screen. Graph- 
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ics characters are printed as they appear on the screen by an "O." ASCII char- 
acters are not printed. The system line printer must be able to print 128 charac- 
ter positions across. The screen is printed as 48 rows of 128 pixels. 



Input/Output Parameters 

There are no input parameters. The screen contents are printed and a return to 
the calling program is done. 



INPUT 



OUTPUT 



H L 



H L 



NONE 



UNCHANGED 



Algorithm 

The SDGRAP subroutine uses an internal print subroutine at SDG050. This 
subroutine first tests the current character position contents in the A register for 
graphics. If the current contents are nongraphics (ASCII), a blank character is 
used for the print; if the current contents are graphics, an "O" is used for the 
print. The blank or "O" is then saved in the stack. 

Next in the print subroutine, a test is made for printer status. The code at 
SDG060 loops until the printer is not busy. When the printer is ready, the blank 
or "O" character is output. The print subroutine then adjusts a "bit mask" in 
the B register. This mask represents the current bit position in the character 
position being tested. Each graphics character has six bit positions, bits 5 
through 0. The bit mask is shifted left one bit to mask the next bit position. 
Finally, the print subroutine tests for the return point. There are three return 
points. If bits 0, 2, or 4 have just been printed, a return is made to SDG030. If 
bits 1, 3, or 5 have just been printed, a return is made to SDG035. If neither of 
these conditions is present (B equals zero), a carriage return has just been 
printed and a return is made to SDG040. The normal subroutine structure is not 
used so that all code in SDGRAP can be relocatable. 

The main code in SDGRAP uses three loops. The outermost loop (SDG010) 
handles character positions, in sets of three graphics rows. The next innermost 
-loop handles the three rows within each character position. The innermost 
loop handles each row of graphics bits. 

Each set of three rows (one line) starts off with the mask bit in B set for pixel 0. 
The character is picked up via the pointer in HL. SDG050 is called to output the 
first pixel. The B mask is now set to pixel 1 . SDG050 is again called for pixel 1 . 
Next, (SDG035), the line pointer in HL, is bumped, and the bit mask is shifted 
back to the right two bit positions. For the first row, B would now hold 1 . Now a 
test is made of HL. If HL is not at the end of line, the next character is picked up 
and pixels and 1 printed. If HL is at the end of line, a carriage return is 
printed by a call to SDG050, and the bit mask in B is shifted left two bit po- 
sitions. If the first row had just been printed, B would now contain a 4. HL is 
now adjusted to point back to the beginning of the line by adding —64. If the 
next row is still within a character position, a loop back to SDG012 prints the 
next row. 
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If the next row starts a new line, the pointer in HL is bumped by 64 to point to 
the next line of three rows. A test is made for HL = 4000H, signifying that all 
rows have been printed. If this is not the case, a jump is made back to SDG010 
to print the next set of three rows. 

Sample Calling Sequence 

NAME OF SUBROUTINE? SD6RAP 
HL VALUE? 

PARAMETER BLOCK LOCATION? 
MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 38888 



■ 48 SCREEN ROWS 



SUBROUTINE EXECUTED AT 38888 
INPUT: OUTPUT: 



NAME OF SUBROUTINE? 
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Notes 

1. ASCII characters on the screen are ignored, but will not cause erroneous 
results. 

2. The dimensions of the printout on many printers will be 12.8 inches hori- 
zontal by 8 inches vertical, which will be approximately the "aspect ratio" of 
the screen. 

3. If this subroutine is used for the Model III, make the following change in 
the listing: Substitute "OUT (0F8H),A" for "LD (37E8H),A." Replace the corre- 
sponding decimal values of "50, 232, 55" with decimal values of "21 1 , 248, 0." 



Program Listing 



7F00 




00100 




ORG 


7F00H 




; 0520 






001 10 


; ♦##««**«♦«»*#»♦*»*»«#*♦*#**«**»»***###**###*#**♦***♦#«*# 






00120 


;# GRAPHICS DUMP TO PRINTER. 


CAUSES CONTENTS OF SCREEN * 






00130 


;* TO 


BE DUMPED TO SYSTEM LINE 


PRINTER AS 128 BY 48 MAT-* 






00140 


?* RIX 


OF OS. 


TEXT IS IGNORED. 


# 






00150 


1* 


input: 


NONE 




» 






00160 


;» 


nUTPUT: SCREEN CONTENTS 


PRINTED * 






00170 


; »«»#♦***«#«»**♦»«****#*»#«#*»«»*####♦«#***»»«»«**#*«♦«## 






00180 


; 










7F00 


F5 


00190 


SDGRAP 


PUSH 


AF 




;SAVE REGISTERS 


7F01 


C5 


00200 




PUSH 


BC 






7F02 


D5 


00210 




PUSH 


DE 






7F03 


E5 


00220 




PUSH 


HL 






7F04 


21003C 


00230 




LD 


HL.3C00H 




; START OF SCREEN 


7F07 


0601 


00240 


SDG010 


LD 


B, 1 




;MASK bit for UPPER LEFT 


7F09 


C5 


00250 


SDG012 


PUSH 


BC 




;SAVE MASK 


7F0A 


CI 


00260 


SDG015 


POP 


BC 




;GET MASK 


7F0B 


7E 


00270 


SDG020 


LD 


A, (HL) 




;GET CHARACTER 


7F0C 


182E 


00280 




JR 


SDG050 




; OUTPUT LFT SIDE BIT 


7F0E 


7E 


00290 


SDG030 


LD 


A, (HL) 




!GET character 


7F0F 


182B 


00300 




JR 


SDG050 




; OUTPUT RIGHT SIDE BIT 


7F1 1 


23 


00310 


SDG035 


INC 


HL 




;BUMP LINE POINTER 


7F12 


CB38 


00320 




SRL 


B 




; ADJUST BACK MASK 


7F 14 


CB38 


00330 




SRL 


B 






7F16 


C5 


00340 




PUSH 


BC 




5 SAVE MASK 


7F17 


7D 


00350 




LD 


A,L 




5 GET CHAR POS ADDR 


7F1S 


E63F 


00360 




AND 


3FH 




5 TEST FOR 64TH CHAR 


7F1A 


20EE 


00370 




JR 


NZ> SDG015 




;G0 IF NOT END OF LINE 


7F1C 


47 


00380 




LD 


B, A 




;0 TO B 


7F1D 


3E0D 


00390 




LD 


A, 13 




; CARRIAGE RETURN 


7F1F 


1826 


00400 




JR 


SDG054 




SPRINT 


7F21 


CI 


00410 


SDG040 


POP 


BC 




; RESTORE BIT MASK 


7F22 


CB20 


00420 




SLA 


B 




;NEXT LINE MASK 


7F24 


CB20 


00430 




SLA 


B 






7F26 


1 1 C0FF 


00440 




LD 


DE,-64 




5 FOR RTN TO LINE START 


7F29 


19 


00450 




ADD 


HLsDE 




; RESET TO LINE START 


7F2A 


CB70 


00460 




BIT 


6,B 




;TEST FOR THREE LINES 


7F2C 


28DB 


00470 




JR 


Z,SDG012 




;G0 IF NOT THREE 


7F2E 


1 14000 


00480 




LD 


DE?64 




!FOR NEXT SCREEN LINE 


7F31 


19 


00490 




ADD 


HL , DE 




; POINT TO NEXT SCREEN LINE 


7F32 


7C 


00500 




LD 


A,H 




;6ET MS BYTE OF ADDRESS 


7F33 


FE40 


00510 




CP 


40H 




;TEST FOR END OF SCREEN 


7F35 


2BD0 


00520 




JR 


NZ5SDG010 




;G0 IF NOT END 


7F37 


El 


00530 




POP 


HL 




; RESTORE REGISTERS 


7F38 


Dl 


00540 




POP 


DE 






7F39 


CI 


00550 




POP 


BC 






7F3A 


Fl 


00560 




POP 


AF 






7F3B 


C9 


00570 




RET 






; RETURN TO CALLING PROGRAM 






00580 


5 PRINT SUBROUTINE 







180 







00590 




BIT 


75 A 


• TFqT FOR WON-fiRAPH T r<=5 


/ ~ %JtZ 




00600 




JR 




!GO TF NOM— PiRAPHI r=5 




API 


006 1 




AND 


B 


!SFT fiRAPHTT'^i RTT 




3E20 


00620 


SDG052 


LD 


As ' ' 


; BLANK 


7F4T 


2802 


00630 




JR 


1 1 SDG054 


ISO IF BIT RESET 


7F45 


3E4F 


00640 




LD 


As ' 0' 


;BIT SET 


7F47 


F5 


00650 


SDG054 


PUSH 


AF 


; SAVE CHARACTER 


7F48 


3AE837 


00660 


SDG060 


LD 


A 5 < 37E8H ) 


;GET PRINTER STATUS 


7F4B 


E6F0 


00670 




AND 




! MARK OilT TMATTTUF P. ITt? 


7F4D 


FE30 


00680 




CP 


30H 


5TEST FOR STATUS 


7F4F 


20F7 


00690 




JR 


NZ , SDG060 


;LOOP IF BUSY 


7F51 


Fl 


00700 




POP 


AF 


; RESTORE CHARACTER 


7F52 


32'E837 


00710 




LD 


(37EBH) 5 A 


; OUTPUT CHARACTER 


7F55 


CB20 


00720 




SLA 


B 


; ADJUST BIT MASK 


7F57 


78 


00730 




LD 


A, B 


5 GET BIT MASK 


7F5S 


E6AA 


00740 




AND 


0AAH 


5 TEST FOR RETURN 


7F5A 


20B2 


00750 




JR 


N2 1 SDG030 


! RETURN FOR RTfiHT <^ T FiF 


7F5C 


78 


00760 




LD 


As B 


; GET BIT MASK 


7F5D 


E654 


00770 




AND 


54H 


5 TEST FOR RETURN 


7F5F 


20B0 


00780 




JR 


NZ 5 SDG035 


; RETURN FOR NEXT RC»W 


7F61 


1 8BE 


00790 




JR 


SDG040 


; RETURN FOR LINE 


0000 




00800 




END 






00000 TOTAL 


ERRORS 











SDGRAP DECIMAL VALUES 



245i 197. 213? 229, 33^ 0? 60) 6? 1» 197? 
193? 126? 24s 46? 126? 24? 43? 35? 203? 56? 
203? 56? 197? 125? 230? 63? 32? 238? 71? 62? 
13? 24? 38? 193? 203? 32? 203? 32? 17? 192? 
255? 25? 203? 112? 40? 219? 17? 64? 0? 25? 
124? 254? 64? 32? 208? 225? 209? 193? 241? 201? 
203? 127? 40? 1? 1605 62? 32? 40? 2? 62? 
79? 245? 58? 232? 55? 230? 240? 254? 48? 32? 
247? 241? 505 232? 55? 203? 32? 120? 2305 170) 
32? 178? 120? 230? 84? 32? 176? 24? 190 

CHKSUM= 64 

SETCOM: SET RS-232-C INTERFACE 

System Configuration 
Model I. 



Description 

SETCOM programs the RS-232-C controller in lieu of setting the switches on the 
RS-232-C controller board. (SETCOM must be run before the NECDRV program 
can be used.) 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block are the baud rate for which the RS-232-C 
interface is to be set, 110, 150, 300, 6C», 1200, 2400, 48(X), or 9600. The next byte 
is set to a zero if parity is to be enabled, or to a one if parity is to be disabled. 
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The next byte of the parameter block is set to a zero if one stop bit is to be used, 
or to a one if two stop bits are to be used. The next byte contains the number of 
bits in the RS-232-C transfer; is 5 bits, 1 is 7 bits, 2 is 6 bits, or 3 is 8 bits. The 
next byte contains a zero if odd parity is to be used, or a one if even parity is 
to be used. 

On output, the parameter block remains unchanged, and the RS-232-C inter- 
face is initialized. 



INPUT 

H L 



POINTER TO PARAM+0 



PARAM+0 

+ 1 
+2 
+3 
+4 
+5 



BAUD 
RATE 



0=PE 1=PD 



0=1 STOP BIT 
1=2 STOP BITS 



0=5 BITS, 1=7 BITS 
2=6 BITS, 3=8 BITS 
0=ODD PAR 
1 =EVEN PAR 



OUTPUT 



UNCHANGED 



PARAM+0 

+ 1 
+2 

+4 
+5 



-- UNCHANGED -- 



UNCHANGED 



UNCHANGED 



UNCHANGED 



UNCHANGED 



Algorithm 

The SETCOM subroutine reads the parameters, merges, and aligns them into 
the proper format for the RS-232-C controller, and writes them out to the con- 
troller. 

First, the controller is reset by an "OUT (0E8H),A." Next, the parity type is 
picked up into A and shifted to yield OOOOOPOO. Next, the number of bits is 
merged, and shifted to yield (X)OOPNNO. Next, the number of stop bits 
is merged and shifted to yield OOOPNNSO. Next, the parity enable/disable bit is 
merged and shifted to yield PNNSPOOO. Next, the BRK and RTS bits are set and 
the PNNSP101 configuration is output to port address OEAH. 

The next portion of code converts the baud rate to the proper RS-232-C code. 
To keep the code relocatable, "linear" code (not table lookup) is used. The 
least significant byte of the baud rate is picked up and compared to the Is byte 
of 110, 150, 300, etc. The proper code is then output to port address 0E9H. 



Sample Calling Sequence 



NAHE OF SUBROUTINE? BETCOM 
HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 
PARAMETER BLOCK VALUES? 



+ 







1 200 


1200 BAUD 


+ 




1 


1 


PD 


+ 


3 


1 





ONE STOP BIT 


+ 


4 


1 


1 


SEVEN BITS 


+ 


5 


1 





ODD PARITY 


+ 


6 











MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 39000 
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SUBROUTINE EXECUTED AT 39000 



INPUT: 






OUTPUT: 




HL.= 40000 




HL= 40000 




PARAM+ 





176 


PARAH+ 


176 


PARAM+ 


1 


4 


PARAH+ 1 


4 


PARAH+ 


2 


1 


PARAM+ 2 


1 


PARAM+ 


3 





PARAM+ 3 





PARAM+ 


4 


1 


PARAH+ 4 


1 


PARAM+ 


5 





PARAM+ 5 






NAME OF SUBROUTINE? 

Notes 

1. No check is made on proper parameters in the parameter block. 

2. The OR prior to OEAH output may be modified as required to set a d iffer- 
ent configuration of BRK, DTR, RTS. 

3. Note transposed order of number of bits. 



Program Listing 



7F00 




00100 




ORG 




7F00H 


5 0522 






001 10 


; *#«#*****#*#***##**#*##***********************«****-»* 






00120 


;# SET 


RS-232 


-C. 


PROGRAMS THE 


RS-232- C CONTROLLER. 






00130 


3 * 


INPUT! 


HL=> PARAMETER BLOCK 






00140 


? * 




PARAM+0, +1=BAUD 


RATE - 110, 150, 300, 600 






00150 


; * 






1200, 


2400, 4800, 9600 






00160 


;* 




PARAM+2=0=PARITY 


ENABLED, 1=PARITY DISAB 






00170 


5 ♦ 




PARAM+3=0=ONE STOP BIT, 1=TW0 STOP BITS 






00180 


;* 




PARAM+4=0=5 BITS 


, 1=7 BITS, 2=6 BITS, 3=8 






00190 


;* 






BITS 








00200 


;* 




PARAM+5=0=ODD PARITY, 1=EVEN 






00210 


; * 


OUTPUT :RS- 


-232- C CONTROLLER INITIALIZED 






00220 


; #«#*##♦*#***#**«»#**«*#♦*♦**#♦«***♦***#•»•**#*******♦** 






00230 


; 










7F00 


F5 


00240 


SETCOH 


PUSH 




AF 


;SAVE REGISTERS 


7F01 


E5 


00250 




PUSH 




HL 




7F02 


DDES 


00260 




PUSH 




IX 




7F04 


CD7F0A 


00270 




CALL 




0A7FH 


; »»«GET PB LOC'N*** 


7F07 


E5 


00280 




PUSH 




HL 


; TRANSFER TO IX 


7F08 


DDEl 


00290 




POP 




IX 




7F0A 


D3E8 


00300 




OUT 




(0EBH) , A 


; RESET RS-232- C 


7F0C 


DD7E05 


00310 




LD 




A, I IX+5) 


; PARITY 


7F0F 


07 


00320 




RLCA 






; ALIGN 


7F10 


07 


00330 




RLCA 








7F1 1 


DDB604 


00340 




OR 




< IX+4) 


; MERGE # BITS 


7F14 


07 


00350 




RLCA 






; ALIGN 


7F15 


DDB603 


00360 




OR 




( IX+3) 


;# OF STOP BITS 


7F18 


07 


00370 




RLCA 






; ALIGN 


7F19 


DDB602 


003B0 




OR 




< IX+2) 


; PARITY ENAB/DIS 


7F1C 


07 


00390 




RLCA 






; ALIGN 


7F1D 


07 


00400 




RLCA 








7F1E 


07 


00410 




RLCA 








7F1F 


F605 


00420 




OR 




5 


; SET BRK, RTS 


7F21 


D3EA 


00430 




OUT 




( 0EAH ) , A 


; OUTPUT 


7F23 


DD7E00 


00440 




LD 




A, ( IX+0) 


;GET LSB OF BAUD RATE 


7F26 


FE6E 


00450 




CP 




1 10 


; 110? 


7F28 


2004 


00460 




JR 




N2,SET010 


;G0 IF NO 


7F2A 


3E22 


00470 




LD 




A , 22H 


; 110 CODE 


7F2C 


1832 


00480 




JR 




SET080 


;G0 TO SET 


7F2E 


FE96 


00490 


BET010 


CP 




150 


; 150? 


7F30 


2004 


00500 




JR 




NZ , SET020 


;G0 IF NO 
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7F32 


3E44 


00510 




LD 


As 44H 


; 150 CODE 


7F34 


182A 


00520 




JR 


SET080 


;S0 TO SET 


7F36 


FE2C 


00530 


SET020 


CP 


44 


;300? 


7F38 


2004 


00540 




JR 


NZ,BET030 


;G0 IF NO 


7F3A 


3E55 


00550 




LD 


A555H 


;300 CODE 


7F3C 


1822 


00560 




JR 


SET080 


?G0 TO SET 


7F3E 


FE58 


00570 


SET030 


CP 


88 


5 600? 


7F40 


2O04 


005S0 




JR 


NZ, SET040 


;G0 IF NO 


7F42 


3E66 


00590 




LD 


A>66H 


5 600 CODE 


7F44 


181A 


00600 




JR 


SET080 


;G0 TO SET 


7F46 


FEB0 


00610 


SET040 


CP 


176 


; 1200? 


7F48 


2004 


00620 




JR 


NZ , SET050 


;G0 IF NO 


7F4A 


3E77 


00630 




LD 


A, 77H 


;1200 CODE 


7F4C 


1812 


00640 




JR 


SET08B 


;G0 TO SET 


7F4E 


FE60 


00650 


SET050 


CP 


96 


5 2400? 


7F50 


2004 


00660 




JR 


NZ, SET060 


;G0 IF NO 


7F52 


3EAA 


00670 




LD 


Ai 0AAH 


; 2400 CODE 


7F54 


180A 


006S0 




JR 


SET080 


;G0 TO SET 


7F56 


FEC0 


00690 


SET060 


CP 


192 


;4S00? 


7F58 


2004 


00700 




JR 


NZ,SET070 


;G0 IF NO 


7F5A 


3ECC 


00710 




LD 


A? 0CCH 


5 4800 CODE 


7F5C 


1 802 


00720 




JR 


SET080 


;G0 TO SET 


7F5E 


3EEE 


00730 


SET070 


LD 


A,0EEH 


5 9600 CODE 


7F6B 


32E900 


00740 


SET080 


LD 


( 0E9H ) , A 


; OUTPUT TO BRG 


7F63 


DDEl 


00750 




POP 


IX 


5 RESTORE REGISTERS 


7F65 


El 


00760 




POP 


HL 




7F66 


Fl 


00770 




POP 


AF 


; RETURN TO CALLING 


7F67 


C9 


00780 




RET 






0000 




00790 




END 







00000 TOTAL ERRORS 



SET COM DEC I HAL VALUES 



245, 229, 221, 229, 205, 127, 10, 229, 221, 225, 

211, 232, 221, 126, 5, 7, 7, 221, 182, 4, 

7, 221, 182, 3? 7, 221? 182, 2, 7, 7, 

7, 246, 5, 211, 234, 221, 126, 0, 254, 110, 

32, 4, 62, 34, 24, 50, 254, 150, 32, 4, 

62, 68, 24, 42, 254, 44, 32, 4, 62, 85, 

24, 34, 254, 88, 32, 4, 62, 102, 24, 26, 

254, 176, 32, 4, 62, 119, 24, 18, 254, 96, 

32, 4, 62, 170, 24, 10, 254, 192, 32, 4, 

62, 204, 24, 2, 62, 238, 50, 233, 0, 221, 

225 , 225 , 24 1 , 201 



CHKSUM= 106 



SOIARR: SEARCH ONE-DIMENSIONAL INTEGER ARRAY 



System Configuration 

Model I, Model III, Model II Stand Alone. 



Description 

SOIARR searches a BASIC or other one-dimensional integer array for a given 
1 6-bit search key. The array may be any size within memory limits. The array is 
assumed to be made up of 16-bit entries. SOIARR returns the address of the 
entry matching the search key, or a —1 if no entry matches the search key. 
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Input/Output Parameters 



On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the 16-bit address of the array, ar- 
ranged in standard Z-80 address format, least significant byte followed by most 
significant byte. The next two bytes of the array contain the number of entries 
in the array. (Note that this value is one-half the number of bytes in the array!) 

The next two bytes contain the 16-bit search key. The arrangement of the 
search key may correspond to the arrangement of data in the array. If the array 
is a BASIC array, the data in the search key will be least significant byte fol- 
lowed by most significant byte; if the array is made up of two ASCII characters 
arranged first and second, then the search key should have the same arrange- 
ment. The last two bytes are reserved for the result of the search. 



On output, PARAM-l-6, +7 holds the address of the entry corresponding to the 
search key, or —1 if no entry has been found. 



INPUT 



POINTER TO PARAM+e 

1 



OUTPUT 
H L 



UNCHANGED 



PARAM+0 
+ 1 


ADDRESS 
OF ARRAY 
(MEM 1+0) 






PARAM+0 

+ 1 


>- UNCHANGED -- 


+2 
+3 


SIZE OF 
ARRAY 






+2 
+3 


- UNCHANGED -- 


+4 
+5 


1 6-BIT 
SEARCH 
KEY 






+4 
+5 


- UNCHANGED -- 


+6 

+7 


RESERVED 
i- FOR 
RESULT 






+6 
+7 


POINTER TO 
h FOUND ENTRY -- 

OR -1 



MEM1- 



+ 1 
+2 
+3 
+4 
+5 
+6 



ENTRY 



ENTRY 1 



ENTRY 2 



MEM 1+0 
+ 1 
+2 
+3 
+4 
+5 



UNCHANGED 



Algorithm 



The SOIARR scans the array one entry (two bytes) at a time from beginning to 
end, looking for the search key. The number of entries is put into BC, the 
starting address of the array into lY, and the search key in DE. HL is used as a 
working register for the compare of the entries to the key. 
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The loop at SOI010 performs the scan. The next entry is put into HL. The search 
key in DE is then subtracted from HL. If the result is zero, the current address in 
lY is returned in HL. If the result is nonzero, no match occurred, and the code at 
SO 1020 increments lY by two to point to the next entry, and then decrements 
the count of entries in BC. A test is then made of BC; if it is zero, all entries have 
been tested and a "not found" return is made. If there are additional entries to 
be tested, a loop back to SOI010 is done. 



Sample Calling Sequence 



NAME OF SUBROUTINE? SOIARR 
HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 
PARAMETER BLOCK VALUES? 



2 







4 

& 
B 

MEMORY 
MEMORY 
+ 2 



ADDRESS OF ARRAY 
5 ENTRIES (10 BYTES) 
SEARCH KEY 



45000 
5 

1234 



BLOCK 1 LOCATION? 45000 
BLOCK 1 VALUES? 
2345 
3456 

5678 |- 5 ENTRY ARRAY (TABLE! 

6789 
1 234 _ 




+ 4 2 
+ 6 2 
+ 8 2 
+ 10 
MEMORY BLOCK 2 LOCATION? 
MOVE SUBROUTINE TO? 38000 
SUBROUTINE EXECUTED AT 38000 



INPUT: 






OUTPUT 






HL= 40 


300 




HL= 40000 




PARAM+ 





200 


PARAM+ 





200" 


PARAM+ 


1 


175 


PARAM+ 


1 


175 


PARAM+ 




5 


PARAM+ 




5 


PARAM+ 


3 





PARAM+ 


3 





PARAM+ 


4 


210 


PARAM+ 


4 


210 


PARAM+ 


5 


4 


PARAM+ 


5 


4 _ 


PARAM+ 


6 





PARAM+ 


6 


208 


PARAM+ 


7 





PARAM+ 


7 


175 


MEMB1+ 





41 


MEMB1+ 





41 " 


MEMB1+ 


1 


9 


MEMB1+ 


1 


9 


MEMB1+ 




128 


MEMB 1 + 




1 28 


MEMB1+ 


3 


13 


MEMB1+ 


3 


13 


MEMB1+ 


4 


46 


MEMB1+ 


4 


46 


MEMB 1 + 


5 




MEMB1+ 


5 




MEMB1+ 


6 


133 


MEMB1+ 


6 


133 


MEMB 1 + 


7 


26 


MEMB 1 + 


7 


26 


MEMB1+ 


8 


210 


MEMB1+ 


8 


210 


MEMB1+ 


9 


4 


MEMB1+ 


9 


4 



UNCHANGED 



-FOUND AT 45008 



UNCHANGED 



NAME OF SUBROUTINE? 



Notes 

1. "Array" in this case corresponds to a table of two-byte entries. 
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Program Listirig 



7F00 




001 00 


ORG 


7F00H 


5 0522 








001 10 


; *#♦*#**####*♦»#«•*»*#*#*»**#*##**♦♦*♦*♦*##*■#*»«»*»■)(•**#«* 






Itlla 1 Zw 


!# SEARCH ONE 


-D INTEGER ARRAY. 


SEARCHES INTEGER ARRAY 


# 








;* FOR SPECIFIED SEARCH KEY. 




* 






00140 


INPUT: 


HL=> PARAHETER BLOCK 








00150 


; * 


PARAH+0, +1=ADDRESS 


OF ARRAY 


* 






00160 




PARAM+2,+3=SIZE OF 


ARRAY 


# 






00170 


;# 


PARAM+4. +5= 16-BIT 


SEARCH KEY 


* 






00180 


;# 


PARAM+6,+7=RESERVED FOR RESULT OF SEARCH 


* 






00190 


;* output: 


PARAM+6, +7 HOLDS ADDRESS IF KEY FOUND OR 


* 






00200 


;« 


-1 OTHERWISE 




* 






00210 








00220 


; 








7F00 


F5 


00230 


SOI ARR PUSH 


AF 


;SAVE REGISTERS 




7F01 


C5 


00240 


PUSH 


BC 






7FB2 


D5 


00250 


PUSH 


DE 






7F03 


E5 


00260 


PUSH 


HL 






7FB4 


DDE5 


00270 


PUSH 


I X 






7F06 


FDE5 


00280 


PUSH 


lY 






7F08 


CD7F0A 


00290 


CALL 


0A7FH 


!*-*#GET PB LOC'N**» 




7F0B 


E5 


00300 


PUSH 


HL 


; TRANSFER TO IX 




7F0C 


DDEl 


00310 


POP 


I X 






7F0E 


DD4E02 


00320 




\r y \ A A "X. / 






7P 1 1 

f F i i 


nnAA03 


00330 


LP 








/r IH 






LD 




5 PUT AnnPPQQ TM 141 




7F17 


DD6601 


00350 


LLI 


H> ( I X+ 1 ) 






7F1 A 


DD5E04 


00360 


i T\ 

L.U 


Ej ( I X+4 ) 


;PUT KEY IN DE 




7FID 


DD5605 


00370 


LD 


D» ( I X+5 ) 






7F20 


E5 


00380 


PUSH 


HL 


3 ARRAY ADDRESS TO lY 




7F21 


FDEl 


00390 


POP 


I Y 






7F23 


FD6E00 


00400 


bUIWlW LU 


L 5 ( 1 Y+0 ) 


;GET NEXT ARRAY ENTRY 




7F26 


FD6601 


00410 










f r .£1 T 






OR 


A 


; CLEAR CARRY 








00430 


SBC 


HL , DE 


;TEST FOR EQUALITY 




7F2C 


2005 


00440 


JR 


NZ1SOI020 


;G0 IF NOT FOUND 




7F2E 


FDE5 


00450 


PUSH 


lY 


; TRANSFER lY TO HL 




7F30 


El 


00460 


POP 


HL 






7F31 


1 80C 


00470 


JR 


SO 1 030 


;G0 TO RETURN 




7F33 


FD23 


00480 


SO I 020 INC 


lY 


; INCREMENT ARRAY LOC'N 




7F35 


FD23 


00490 


INC 


lY 






7F37 




00500 


DEC 


BC 


? DECREMENT COUNT 




7F38 


79 


005 1 


LD 


A. C 


;TEST COUNT 




7F39 


B0 


00520 


OR 


B 






7F3A 


20E7 


00530 


JR 


N2? 501010 


;LOOP IF COUNT NOT 




7F3C 


21FFFF 


00540 


LD 


HL5-I 


?'NOT FOUND' FLAG 




7F3F 


DD7506 


00550 


SO I 030 LD 


( IX+6) ,L 


; STORE LOC'N OR NOT FOUND 


7F42 


DD7407 


00560 


LD 


( IX+7) 5H 






7F45 


FDEl 


00570 


POP 


lY 


; RESTORE REGISTERS 




7F47 


DDEl 


00580 


POP 


IX 






7F49 


El 


00590 


POP 


HL 






7F4A 


Dl 


00600 


POP 


DE 






7F4B 


CI 


00610 


POP 


BC 






7F4C 


Fl 


00620 


POP 


AF 






7F4D 


C9 


00630 


RET 




1 RETURN TO CALLING PROG 




0000 




00640 


END 








00000 TOTAL 


ERRORS 











SO I ARR DECIMAL VALUES 



245 > 197, 2135 229 > 221 » 2295 253 5 229? 205 » 127 5 
10, 229? 221 f 225 > 221, 7S> 2> 221 > 70, 3, 
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221 ! 1105 05 2215 1025 l5 221 5 94? 4? 2215 
86? 5? 229? 2535 2255 2535 1105 05 253> 102! 
l5 1835 2375 825 325 55 253» 2295 225, 245 
125 2535 355 2535 355 II5 121 5 1765 325 2315 
335 2555 2555 221 5 1175 6s 2215 1165 75 2535 
225 5 221 5 225 5 225 5 2095 1935 241? 201 



CHKSUM= 17 
SPCAST: SERIAL PRINTER FROM CASSETTE 



System Configuration 
Model I, Model III. 



Description 

SPCAST uses the cassette output port to implement output to a serial printer. 
Additional external "hardware" is required to convert the cassette voltage lev- 
els to levels compatible with serial printers. A character at a time is output with 
a baud rate of 110, 300, 600, or 1200. 

The format for output is one start bit, seven or eight data bits, and one stop bit 
with no parity. If the character to be output is a seven-bit ASCII character, the 
most significant bit should be set to zero, and the result will be seven data bits 
with two stop bits. If the character to be output is an eight-bit character, the 
result will be eight data bits with one stop bit. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the address of SPCAST, in standard 
Z-80 address format. The next byte contains a baud rate code of 0, 1, 2, or 3, 
corresponding to 1 10, 300, 600, or 1200 baud. The next byte contains the char- 
acter to be output. 

On output, the character has been transmitted. The parameter block remains 
unchanged. 



INPUT 



POINTER TO PARAM+0 
1 



OUTPUT 
H L 



UNCHANGED 



PARAM+0 

+ 1 
+2 
+3 



ADDRESS 

OF 
SPCAST 



= 110, 1=300, 
=600. 3=1200 



CHARACTER 



PARAM4 



+ 1 
+2 
+3 



UNCHANGED 



UNCHANGED 



UNCHANGED 
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Algorithm 



SPCAST must take the given character and "strip off" the eight bits, translating 
each into a serial bit, which is sent out to the serial printer through the cassette 
port. The timing for each "bit time" is determined by the specified baud rate. 

SPCAST first outputs a cassette off code by outputting a 2 to port OFFH. Next, 
the baud rate code is obtained from the second byte of the parameter block. 
The code is multiplied by two and added to the start address of SPCAST and the 
table displacement. The result now points to a timing value in BAUDTB which 
represents the "bit time" for the given baud rate. This two-byte value is picked 
up and put into DE. 

The cassette port is now turned on by outputting a 1 to OFFH. This is the "start" 
bit. The count in DE is put into HL and the delay loop at SPC010 delays for one 
bit time. 

The code at SPC01 5 is the main output loop of SPCAST. It loops eight times. For 
each loop, a bit from the character in C is shifted out into the carry. If the bit is 
a 0, a 2 level is output to port OFFH; if the bit is a 1 , a 1 level is output to port 
OFFH. The second-level loop at SPC030 delays one bit time by decrementing 
the delay count in HL. If eight iterations have not been performed, another bit is 
transmitted. 

The loop at SPC040 outputs a "stop" bit and delays for one bit time to terminate 
the transmission of the character. 



Sample Calling Sequence 



NAME OF SUBROUTINE? SPCAST 
HL VALUE? 39000 

PARAMETER BLOCK LOCATION? 39000 
PARAMETER BLOCK VALUES? 



+ 




37000 


ADDRESS OF SPCAST 


+ 2 


.1 


1 


BAUD RATE = 300 


+ 3 


1 


65 


"A" TO BE OUTPUT 


+ 4 










MEMC 


RY 


BLOCK 1 


LOCATION? 



MOVE SUBROUTINE TO? 37000 
SUBROUTINE EXECUTED AT 37000 



INPUT: 
HL= 39000 
PARAM+ 
PARAM+ 1 
PARAM+ 2 
PARAM+ 3 



136 
144 
1 

65 



OUTPUT: 

HL= 39000 
PARAM+ 
PARAM+ 1 
PARAM+ 2 
PARAM+ 3 



136 
1 44 
1 

65 



UNCHANGED 



NAME OF SUBROUTINE? 



Notes 

1. External electronics must convert the cassette signal levels to RS-232-C 
compatible levels. The output signal level for a logic is approximately volts. 
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The output signal level for a logic 1 is approximately 0.85 volts. Corresponding 
RS-232-C signal levels are +3 volts or more for a logic and -3 volts or less 
for a logic 1 . 

2. Multiply the BAUDTB values by 1 .143 for a Model III. 
Program Listing 

7F00 00 100 ORG 7F00H ;0522 

001 1 ; ««*♦#**#****•»***«*♦#****#**«*«*****♦*#♦♦♦##*#**###*#«**# 
00 1 20 ;* SERIAL. PRINTER FROM CASSETTE. OUTPUTS A CHARACTER TO * 
00130 ;* A SERIAL PRINTER USING THE CPU CASSETTE PORT # 







00140 


;* INPUT : 


HL = .> PARAMETER 


BLOCK # 






00150 


; * 


PARAM+0 , +1 =ADDRESS 


OF SPCAST * 






00160 


; * 


PARAM+2=BAUD RATE 


CODE 0=1 10- 1=300, « 






00170 


; * 


2=6005 


3=1 


200 * 






00180 


;* 


PARAM+3=CHARACTER 


TO BE OUTPUT * 






00190 


;* OUTPUT: 


CHARACTER OUTPUT TO PRINTER * 






00200 


; *«*♦*#****#*♦♦*■)(■**#**♦#» ##«*#*«##****#**#*»*#***««#*##** 






002 1 










7FPSP1 


F5 




SPCAb 1 PUSH 


AF 




; SAVE Kt&lblhHb 


TjrjTi 1 
/ r Itl i 


WD 




PUbH 


BC 






/ r 






rUbH 


ut.. 






7F03 


E5 


00250 


PUSH 


ML 






7F04 


DDE5 


00260 


PUSH 


I X 






7F06 


CD7F0A 


00270 


CALL 


0A7FH 




; **«GET PB LOC'N*** 


7F09 


E5 


00280 


PUSH 


HL 




; TRANSFER TO IX 


7F0A 


DDEl 


00290 


POP 


IX 






7F0C 


3E01 


00300 


LD 


A? 1 




; CASSETTE ON CODE 


7F0E 


D3FF 


003 1 


OUT 


( 0FFH ) » A 




; SPACING 


7F10 


DD6E02 


00320 


LD 


L) < IX+2) 




;GET RATE CODE 


7F13 


2600 


00330 


LD 


H» 




;N0W in HL 


7F15 


29 


00340 


ADD 


HL ? HL 




; C0DE*2 


7F16 


DD5E00 


00350 


LD 


E> ( IX+0) 




; ADDRESS OF THIS CODE 


7F19 


DD5601 


00360 


LD 


D> ( IX+1 ) 






7F1C 


19 


00370 


ADD 


HL ! DE 




;START+C0DE 


7F1D 


1 15900 


00380 


LD 


DE, BAUDTB 




; TABLE DISPLACEMENT 


7F20 


19 


00390 


ADD 


HL , DE 




; POINT TO TIMING COUNT 


7F21 


5E 


00400 


LD 


E ■> i HL ) 




;GET MS BYTE 


7F22 


23 


00410 


INC 


HL 




; POINT TO NEXT BYTE 


7F23 


56 


00420 


LD 


r>, <HL) 




;GET LS BYTE 


7F24 


D5 


00430 


PUSH 


DE 




; COUNT TO HL 


7F25 


El 


00440 


POP 


HL 






7F26 


3E02 


00450 


LD 


Ai 2 




; CASSETTE OFF CODE 


7F2S 


D3FF 


00460 


OUT 


(0FFH) .A 




;TURN OFF CASSETTE FOR SP 


7F2A 


2B 


00470 


SPC010 DEC 


HL 




; DECREMENT COUNT 6 


7F2B 


7C 


00480 


LD 


A»H 




;TEST COUNT 4 


7F2C 


B5 


00490 


OR 


L 




;TEST FOR ZERO 4 


7F2D 


20FB 


00500 


JR 


NZ, SPC010 




;G0 IF NOT BIT TIME 7/12 


7F2F 


DD4E03 


00510 


LD 


C> ( IX+3) 




■,GET CHARACTER 


7F32 


0608 


00520 


LD 


Bi 8 




ITERATION COUNT 


7F34 


D5 


00530 


SPC015 PUSH 


DE 




; TRANSFER COUNT TO HL 


7F35 


El 


00540 


POP 


HL 






7F36 


3E02 


00550 


LD 


A , 2 




; CASSETTE OFF CODE 


7F38 


CB39 


00560 


SRL 


C 




; SHI FT OUT BIT 


7F3A 


3002 


00570 


JR 


NCjSPC020 




;go if zero 


7F3C 


3E01 


00580 


LD 


A> 1 




; CASSETTE ON CODE 


7F3E 


D3FF 


00590 


SPC020 OUT 


( 0FFH ) ! A 




; OUTPUT TO CASSETTE 


7F40 


2B 


00600 


SPC030 DEC 


HL 




; DECREMENT COUNT 


7F41 


7C 


00610 


LD 


A 5 H 




;TEST COUNT 


7F42 


B5 


00620 


OR 


L 






7F43 


20FB 


00630 


JR 


NZ5SPC030 




;G0 if NOT DONE 


7F45 


10ED 


00640 


DJNZ 


SPC015 




;G0 if more BITS 


7F47 


D5 


00650 


PUSH 


DE 




; TRANSFER COUNT TO HL 


7F48 


El 


00660 


POP 


HL 






7F49 


3E01 


00670 


LD 


A> 1 




; CASSETTE ON CODE 



7F4B 


D3FF 


00680 




OUT 


<0FFH) , A 


7F4D 


2B 


00690 


SPC040 


DEC 


HL 


7F4E 


7C 


00700 




LD 


A.H 


7F4F 


85 


00710 




OR 


L 


7F50 


20FB 


00720 




JR 


NZ»SPC040 


7F52 


DDEl 


00730 




POP 


IX 


7F54 


El 


00740 




POP 


HL 


7F55 


Dl 


00750 




POP 


DE 


7F56 


CI 


00760 




POP 


BC 


7F57 


Fl 


00770 




POP 


AF 


7F58 


C9 


00780 




RET 




0059 




00790 


BAUDTB 


Ecau 


$-SPCAST 


7F59 


6C02 


00800 




DEFW 


620 


7F5B 


E300 


00810 




DEFW 


227 


7F5D 


7200 


00820 




DEFW 


114 


7F5F 


3900 


00830 




DEFW 


57 


0000 




00840 




END 




00000 TOTAL 


ERRORS 









; OUTPUT TO CASSETTE 
; DECREMENT COUNT 
;TEST COUNT 

;G0 IF CNT NOT ZERO 
; RESTORE REGISTERS 



; RETURN 

; BAUD COUNT TABLE 

; 110 

;300 

;600 

; 1200 



SPCAST DECIMAL VALUES 



245, 197? 213, 229? 221 > 229? 205 ? 12?! 10, 229? 

221) 225) 62) 1) 211) 255) 221) 110) 2) 38) 

) 41) 221) 94 ) ) 221) 86 ) 1, 25 > 17) 

B9) 0) 25) 94) 35) 86) 213, 225) 62) 2) 

211) 255) 43) 124) 181) 32) 251) 221) 78) 3) 

6) S) 213) 225) 62) 2) 203) 57) 48) 2) 

62) 1) 211) 255) 43) 124) 181) 32) 251) 16) 

237) 213) 225) 62) 1) 211) 255) 43) 124) 181) 

32) 251) 221) 225) 225 » 209) 193) 241) 201 > IBBt 

2) 227) 0) 114) 0) 57) 



CHKSUM= 15 



SQROOT: SQUARE ROOT 



System Configuration 

Model I, Model 111, Model II Stand Alone. 



Description 

SQROOT calculates the integer square root of a given 16-bit number. For ex- 
ample, if the number is 30,000, the subroutine will return 54 as the square root 
in place of 54.77. 



Input/Output Parameters 

On input, HL contains the "square," the number whose square root is to be 
found. 

On output, HL contains the integer portion of the square root. 



INPUT 



OUTPUT 



H 



-t- 



NUMBER, 0-65535 



INTEGER SQUARE ROOT 

1 
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Algorithm 



The SQROOT subroutine performs the square root operation by using the 
widely-known fact that the square root of any number is equal to the number of 
odd integers contained in the square. The square of 17, for example, contains 
1 + 3+5 + 7=16. The total number of odd integers is 4, and this is the inte- 
ger square root contained in 1 7. 

The B register is initialized with a count of — 1 ; B will count the number of odd 
integers in the square. DE is initialized with — 1 ; DE will hold the negated value 
of the next odd integer — — 1 , — 3, —5, and so forth. 

The loop at SQR010 successively subtracts an odd integer from the original 
number by the "ADD HL,DE." The count of odd numbers in B is incremented 
with every subtract. The loop is terminated when the "residue" goes negative 
and the carry flag is reset after the add. At that point, the count of odd numbers 
is returned in HL. 

Sample Calling Sequence 

NAME OF SUBROUTINE? SQROOT 

HL VALUE? 65535 SQUARE ROOT IS 255.99 . . . 

PARAMETER BLOCK LOCATION? 

MEMORY BLOCK 1 LOCATION? 

MOVE SUBROUTINE TO? 55000 

SUBROUTINE EXECUTED AT 55000 

INPUT: OUTPUT: 

HL= 65535 HL= 255 INTEGER VALUE OF SQUARE ROOT 

NAME OF SUBROUTINE? 

Notes 

1 . The square may be "scaled-up" to achieve more precision. For example, if 
the square root of a number less than 100 is to be found, multiply the number 
by 256. The square root will then represent 16 times the actual square root. 
For example, 99 times 256 = 25344. The square root returned by the subrou- 
tine will be 159. This represents 159/1 6 or 9 and 15/16 or 9.9375, much closer to 
the actual square root of 9.949. 

2. The square input in HL is an "unsigned" number. The maximum square 
can be 65,535. 

Program Listing 

7F00 00100 ORG 7F00H 10522 

001 10 ; **»««***##»****««-**#***##*«***#«###*»**#*«#«*#*#««*#«*«« 
00120 ;* SQUARE ROOT. CALCULATES INTEGER PORTION OF SQUARE * 
00130 ;* ROOT OF A GIVEN NUMBER. # 

00140 ;* INPUT! HL=NUMBER * 
00150 ;* OUTPUT : HL= I NTEGER PORTION OF SQUARE RT OF NUMBER » 

00 1 60 ; *«****#«**#**«*«###«*###*#♦###*♦##**##*#*«♦##***#**#*«*# 
00170 ; 

7F00 C5 00180 SQROOT PUSH BC ; SAVE REGISTERS 

7F01 D5 00190 PUSH DE 

7F02 CD7F0A 00200 CALL 0A7FH ;***GET NUMBER*** 
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CHAFF 




LD 


Bs 0FFH 


f r ^ f 


I xr r r r 




LD 


DEs -1 


-7irraA 


mil. 


(71(71 p-zra crjRni i m 


INC 


B 




i O 

i T 




Ann 


HL 5 DE 




1 O 


(^17! (71 




DE 


/ r tJi/ 


1 R 


00260 


DEC 


DE 


7F0E 


38FA 


00270 


JR 


Ci SQR010 


7F10 


68 


00280 


LD 


L ! B 


7F1 1 


2600 


00290 


LD 


Hi 


7f 13 


Dl 


00300 


POP 


DE 


7F14 


CI 


00310 


POP 


BC 


7^ 15 


C39A0A 


00320 


JP 


0A9AH 


7F18 


C9 


00330 


RET 




0000 




00340 


END 




00000 TOTAL 


ERRORS 







? INITIALIZE RESULT 

; FIRST ODD SUBTRAHEND 

; INCREMENT RESULT COUNT 
5 SUBTRACT ODD NUMBER 
;FIND next ODD NUMBER 

; CONTINUE IF NOT MINUS 
;GET RESULT 
?NOW IN HL 
; RESTORE REGISTERS 

;#«#RETURN ARGUMENT*** 
; NON-BASIC RETURN 



SQROOT DECIMAL VALUES 



197, 213? 2055 127j 10? 6» 255? 17? 255? 255? 
4? 25? 27? 27? 56? 250? 104? 38? 0? 209? 
193? 195? 154? 10? 201 

CHKSUM= 217 
SROARR: SORT ONE-DIMENSIONAL INTEGER ARRAY 

System Configuration 

Model I, Model III, Model II Stand Alone. 



Description 

SROARR sorts a BASIC or other one-dimensional i nteger array. The array may 
be any size within memory limits. The array is assumed to be made up of 1 6-bit 
entries. SROARR arranges the entries in the array in ascending order based on 
their binary weight on a sixteen bit "unsigned" basis. In this scheme an entry of 
8000H will be after an entry of 7FFFH. A "bubble sort" is used which requires 
no additional memory buffer other than the array itself. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the 16-bit address of the array, ar- 
ranged in standard Z-80 address format, least significant byte followed by most 
significant byte. The next two bytes of the array contain the number of entries 
in the array. (Note that this value is one-half the number of bytes in the array!) 

On output, the array has been sorted in memory. The parameter block remains 
unchanged. 

INPUT OUTPUT 
H L H L 



POINTER TO PARAM+0 



UNCHANGED 

1 
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PARAM+0 

+ 1 
+2 
+3 



POINTER TO 
ARRAY 
(MEM 1+0) 



SIZE OF 
ARRAY 



PARAM+0 

+ 1 
+2 
+3 



-- UNCHANGED 



UNCHANGED -- 



MEM 1+0 

ENTRY 

+ 1 
+2 

ENTRY 1 

+3 
+4 

ENTRY 2 

+5 
+6 

Algorithm 

The SROARR sorts the entries by a bubble sort. This sort scans the array from 
bottom to top, moving one entry at a time. Each entry is compared to the next 
entry. If the top entry is a higher value than the next entry, the two entries are 
swapped, otherwise the entries are left unchanged. The next entry is then com- 
pared in the same fashion until all entries in the array have been examined. At 
the end of the scan, a "swap" flag is examined. If a swap occurred, another 
pass is made through the array. If no swap occurred, the array is sorted. A 
number of passes through the array may have to be made to sort the entries. 

There are two loops in SROARR. The innermost loop controls the scan from top 
to bottom for every pass and starts at SRO010. The outermost loop handles the 
next pass after a complete scan through the array and starts at SRO005. 

The innermost loop at SRO010 loads HL with the entry pointed to by lY and 
loads DE with the next entry. A subtract is done to compare the two. If the HL 
entry is "heavier" than the DE entry, a swap is made by storing HL and DE and 
a "swap" flag in iX is set. If the HL entry is the same or "lighter," no swap 
occurs. The lY pointer is then incremented to point to the next entry, the count 
of entries in BC is decremented, and a test is made of BC. If there are more 
entries, a jump is made to SRO010 for the next entry comparison. 

If BC is zero, all entries have been compared for this pass. IX contains the 
"swap" flag, and it is tested for nonzero, indicating a swap. If it is nonzero, a 
jump is made back to SRO005 to start over at the first entry and to reset the 
"swap" flag. The sort is over when a complete pass is made without the 
"swap" flag being set. 

Sample Calling Sequence 

NAME OF SUBROUTINE? SROARR 
HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 



MEM 1+0 

+1 



+2 
+3 
+4 
+5 
+6 



SORTED 
ARRAY 
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PARAMETER BLOCK VALUES? 







+ 

+ 2 2 
44 
MEHORY 
MEHORY 
•+■ 2 
+ 2 2 
+ 
+ 

+ 



LOCATION OF ARRAY 
5 ENTRIES 



LOCATION? 
VALUES? 



45000 



45000 
5 


BLOCK 1 
BLOCK 1 
7B90 
6789 
567B 
4567 
3456 


MEMORY BLOCK 2 LOCATION? 
MOVE SUBROUTINE TO? 37777 
SUBROUTINE EXECUTED AT 37777 



4 
6 
B 
10 



INITIALIZE VALUES FOR EXAMPLE 







INPUT: 






OUTPUT 






HL= 40000 




HL= 40000 




PARAM+ 





200 


PARAM4- 





200 


PARAM+ 


1 


175 


PARAM+ 


1 


175 


PARAM4- 




5 


PARAM4- 




5 


PARAM+ 


3 





PARAM4- 


3 





MEMB1+ 





210 


MEMB 14- 





128 


MEMB1+ 


1 


30 


MEMB 14- 


1 


13 


MEMB 1 4- 




1 33 


MEMB 1 + 




215 


MEMB1+ 


3 


26 


MEMB1+- 


3 


17 


MEMB1+ 


4 


46 


MEMB 1 4- 


4 


46 


MEMB1+ 


5 




MEMB1+ 


5 




MEMB 1 4- 


6 


215 


MEME1+ 


6 


133 


MEMB 1 4- 


7 


17 


MEMB 1 4- 


7 


26 


MEMB 14- 


8 


128 


MEMB 14- 


8 


210 


MEMB1+ 


9 


13 


MEMB 14- 


9 


30 



-UNCHANGED 



- RESORTED 



NAME OF SUBROUTINE? 

Notes 

1 . The bubble sort is not particularly speedy, but requires minimal memory. 

2. The number of entries must be two or greater. 

Program Listing 



7F00 



00100 
001 10 

00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 



ORG 7F00H 5 0522 

; *♦***♦*******#*#♦#**♦*#***«♦«***«*«#******#**#####■»*■**** 
SORT ONE-D INTEGER ARRAY. SORTS INTEGER ARRAY INTO * 
;* ASCENDING ORDER. # 
INPUT: HL=>.PARAMETER BLOCK « 
PARAM4-0, 4-l=ADDRESS OF ARRAY « 
;* PARAM+2, 4-3=SIZE OF ARRAY * 

;* OUTPUT: ARRAY SORTED IN ASCENDING ORDER * 
; »»«*♦♦***##*#*»«**♦*###***«*»**#***»***♦«♦«*##*«####»### 



71-00 


F5 


00200 


SROARR 


PUSH 


AF 


;SAVE REGISTERS 


7F01 


C5 


00210 




PUSH 


BC 




7F02 


D5 


00220 




PUSH 


DE 




7F03 


E5 


00230 




PUSH 


HL 




7F04 


DDES 


00240 




PUSH 


IX 




7F06 


FDE5 


00250 




PUSH 


lY 




7F08 


CD7F0A 


00260 




CALL 


0A7FH 


;-)(-»*GET PB LOC'N**» 


7F0B 


E5 


00270 




PUSH 


HL 


; TRANSFER TO IX 


7F0C 


DDEl 


00280 




POP 


IX 




7F0E 


DD4E02 


00290 


SRO005 


LD 


Ci < 1X4-2) 


;PUT SIZE IN BC 


7F1 1 


DD4603 


00300 




LD 


B< (1X4-3) 




7F14 


0B 


00310 




DEC 


BC 


;SIZE - 1 FOR SORT 
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7F15 


nnAFPi0 

iw* O L-. 






LD 


i , ( T y+0 ) 


- PUT ADDRESS IN HL 


7F1S 


L/ O O (£J X 






LD 


I 1 7 \ 4. A ' J. / 




7F 1 R 








PUSH 


HL 


: COPY INTO I Y 


7F1 C 


FDF 1 






POP 


I Y 




7F 1 E 


nnFS 






PUSH 


I X 


7 wn V t— i A 


7F20 


L/Uj:, X VJVJ\UVJ 


pi J7I -77171 




LD 


1X50 


;9ET 'NO CHANGE' FLAG 


7F24 




nirft-icirft 


*nROi7l 1 9\ 

\J 1 \ V kJ J. «.? 


LD 


1 , ( f Y+0 ) 


;PUT CUR ENTRY INTO HL 


7F27 


FnAAi?)1 






LD 


Hi < IY+1 ) 




7F2A 








LD 


E ) ( I Y+2 ) 


; PUT NEXT ENTRY IN DE 


7F2D 


1 w .J w «-/ w 


004 t 




LD 


Dl ( TY+3) 




7F3(3 


P,7 






OR 




; TLFAR CARRY 


7F31 




004'^0 




SBC 


HL > DE 


; COMPARE PAIR 


7F33 


381 1 


00440 

\Lf %j ~ «J 




JR 


Ci SRO020 


!G0 IF CUR<NEXT 


7F35 


280F 


Itl Itf *T _J lU 




JR 


JL. I w I \ KJ X. KJ 


-go IP FOUAL 


7F37 




004AP1 




ADD 


Hi . DF 
riL_ ? ijc 


. RFCiTORE VAL UF 


7F38 


DD23 


00470 




INC 


IX 


; SET SWAP FLAG 


7F3A 








LD 


( T Y+PI > < F 


!i=!UIAP PAIR 




Fn7'?l71 1 






1 n 


< IY+1 ) ! D 




7F40 


FD7502 






LD 


( IY+2 ) 5 L 




7F43 


FD7403 


005 10 




LD 


( TY+3) ! H 

\ X 1 ■ w //It 




7F46 


n Ly j:_ i_J 




r\ lu jl. bJ 


T wr 


T V 


- PDT KIT TO KJFXT FMTRY 


/ r *-rc} 


P_. ... _ 






T Mr 


T V 
J, y 




f r *tri 








i/C. U 


t-'U 


■ nprPPMFMT rfi! IMT 


VET AP 


"7Q 
/ O 






1 n 


A - D 


m TCTCT ("Af IMT 


"7Er A 


c5 1 






UK 


C 




/ r n-U 


o n 






TD 




; aU Ir NU 1 tiMD 


/ r 








PI IQM 


T Y 

i A 




/ ™ —J X 


C i. 






POP 


HI 




^ r _j 










Ml .» RC 


- TFRT Fl A(n 

7 1 L_. O 1 r iL.riO 


/ F ™) *T 


L/L/tZ. X 






POP 


I X 


■ RpqxoRF IX 

3l\l_-i^l>_'IAL-. -LA 


7F'=iA 
f n -Jo 








,TR 


I\I7 « ^nRr)00S 


; RO TF qWAP ocruRFD 


/ r _j o 


r Uc: i 






n vi r 


T V 

X T 


■ RpcjTORF RFPimTFRR 




1/1/ c. 1 






Pri P 


T Y 
1 A 




/ r .J \j 








POP 


Ml 




7F5D 


Dl 


00660 




r Ur 


Uh 




7F5E 


CI 


00670 




POP 


BC 




7F5F 


Fl 


006B0 




POP 


AF 




7F60 


C9 


00690 




RET 






0000 




00700 




END 






00000 TOTAL ERRORS 











SROARR DECIMAL VALUES 



245 > 197) 213, 229, 221, 229, 253, 229, 205, 127, 

10, 229, 221, 225, 221, 78, 2, 221, 70, 3, 

11, 221, 110, 0, 221, 102, 1, 229, 253, 225, 
221, 229, 221, 33, 0, 0, 253, 110, 0, 253, 
102, 1, 253, 94, 2, 253, 86, 3, 183, 237, 
82, 56, 17, 40, 15, 25, 221, 35, 253, 115, 
0, 253, 114, 1, 253, 117, 2, 253, 116, 3, 
253, 35, 253, 35, 11, 120, 177, 32, 213, 221, 
229, 225, 237, 66, 221, 225, 32, 182, 253, 225, 
221, 225, 225, 209, 193, 241, 201 



CHKSUM= 242 



SSNCHR: SEARCH STRING FOR N CHARACTERS 



System Configuration 

Model I, Model III, Model II Stand Alone. 
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Description 

SSNCHR searches a string of any length for a "substring" of any length. A 
"found" or "not found" address of the substring is returned. The strings may 
contain any combinations of data — ASCII, binary, or other combinations. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the starting address of the string to be 
searched in standard Z-80 address format, least significant byte followed by 
most significant byte. The next two bytes of the parameter block contain the 
number of bytes in the string to be searched. The next two bytes of the parame- 
ter block contain the starting address of the "key" string, the string for which 
the search is to be made. The next two bytes in the parameter block contain the 
number of bytes in the key string. The next two bytes are reserved for the result. 

On output, PARAM+7, + 8 contain the result of the search. All other bytes in 
the parameter block are unchanged. The result is a — 1 if the search key has not 
been found in the string to be searched. If the search key has been found, the 
result is the actual address of the first occurrence of the search key in the string 
to be searched. 



INPUT 
H L 



POINTER TO PARAM+0 



OUTPUT 
H L 



UNCHANGED 

1 



PARAM+0 

+1 


START ADDRESS 
-OF STRING TO BE- 
SRCHED (MEM 1+0) 


PARAM+0 

+ 1 


- UNCHANGED - - 


+2 
+3 


# BYTES IN 
- STRING TO - 
BE SRCHED 


+2 

y +3 


- UNCHANGED - - 


+4 
+5 


STARTING 
- ADDRESS OF - 
KEY STRING 


+4 
+5 


- UNCHANGED - - 


+6 


# BYTES IN KEY 


+6 


UNCHANGED 


+7 
+8 


RESERVED 
" FOR RESULT 


+7 
+8 


ADDRESS IF 
' FOUND OR -1 " 



MEM 1+0 
+ 1 
+2 
+3 
+4 
+5 
+6 



STRING 
TO BE 
SEARCHED 



MEM1+0 

+ 1 



+2 
+3 
+4 
+5 
+6 



- - UNCHANGED - - 
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MEM2+0 
+ 1 
+2 
+3 
+4 
+5 
+6 



KEY 
STRING 



MEiM2+0 

+ 1 



+2 
+3 
+4 
+5 
+6 



-- UNCHANGED -- 



Algorithm 

The SSNCHR subroutine performs the search in two steps. First, a "CPIR" block 
search is made for the first character. If the first character is not found, the 
search has been unsuccessful. If the first character is found, a further compari- 
son is done for the other characters in the search string. 

The registers are first set up for the CPIR. The string start address of the string to 
be searched is put into the HL register pair. The number of bytes in the string to 
be searched is put into BC. The first character of the search string is put into the 
A register. (Also at this point, the search string start is put into DE.) The CPIR 
search is done at SSN060. 

If the Z flag is not set after the CPIR, the first character of the string has not been 
found and the code at SSN080 puts a — 1 into the result. If the Z flag is set, the 
first character of the string has been found. 

The code at SSN070 compares the remaining bytes to see if the key string 
matches. In this loop, HL points to the locations of the string to be searched, 
while lY points to the locations in the key string. B contains the count of the 
number of characters in the key string. If any characters do not compare, a 
return back to the CPIR is done with HL pointing to the next byte after the byte 
that was found. If all characters compare, the address of the first character in 
the string to be searched is put into the result. 



Sample Calling Sequence 



NAME OF SUBROUTINE? SSNCHR 
HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 
PARAMETER BLOCK VALUES? 



+ 




45000 


START OF STRING TO BE SEARCHED 


+ 2 




6 




6 BYTES IN STRING TO BE SEARCHED 


+ 4 




46000 


START OF KEY STRING 


+ 6 


1 


3 




3 BYTES IN KEY STRING 


+ 7 











+ 9 












MEMORY 


BLOCK 1 


LOCATION? 45000 


MEMORY 


BLOCK 1 


VALUES? 


+ 


1 


0" 






+ 1 


1 


1 






-t 2 
+ 3 


1 
1 


3 


- STRING TO BE SEARCHED 


+ 4 


.t 


4 






+ 5 


1 


5_ 






+ 6 












MEMC 


RY 


BLOCK 2 


LOCATION? 46000 



198 



MEMORY 



1 



+ 

4 

+ 2 
+ 3 
MOVE 



BLOCK 
3^ 



VALUES? 



KEY STRING 



SUBROUTINE TO? 



SUBROUTINE EXECUTED 



38000 

AT 38000 



INPUT: 






OUTPUT 






HL= 40000 




HL= 40000 




PARAM+ 





200 


PARAM+ 





200 


PARAM+ 


1 


175 


PARAM+ 


1 


175 


PARAM+ 


2 


6 


PARAM+ 


2 


6 


PARAM+ 


3 





PARAM+ 


3 





PARAM+ 


4 


176 


PARAM+ 


4 


176 


PARAM+ 


5 


179 


PARAM+ 


t'l 


179 


PARAM+ 


6 


3 


PARAM+ 


6 


3 


PARAM+ 


7 





PARAM+ 


7 


203 


PARAM+ 


8 





PARAM+ 


8 


175 


MEMB1+ 








MEMB1+ 








MEMB.I + 


1 


1 


MEMB1+ 


1 


1 


MEMB1+ 






MEMB 1 + 






MEMB1+ 


3 


3 


MEMB1+ 


3 


3 


MEMB1+ 


4 


4 


MEMB1+ 


4 


4 


MEMB1+ 


5 


5 


MEMB 1 + 


5 


5 


MEMB2+ 





3 


MEMB2+ 





3 


MEMB2+ 


1 


4 


MEMB2+ 


1 


4 


MEMB2+ 




5 


MEMB2+ 




5 



UNCHANGED 



■FOUND AT 45003 



-UNCHANGED 



NAME OF SUBROUTINE? 



Notes 

1. The key string may be one byte. 

2. The key string may not contain a larger number of bytes than the string to 
be searched. 



Program Listing 



7F0B 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 



ORG 7F00H 

; *#*****»««#**«#**#»**»*«*«******«-»**#*«**#*****««*«***** 

;* SEARCH STRING FOR N CHARACTERS. SEARCHES STRING FOR * 

;« A SUBSTRING. * 

;# INPUT: HL=> PARAMETER BLOCK * 

;« PARA, +0, +1=STARTING ADDRESS OF STRING TO « 

;* BE SEARCHED * 

;« PARAM+2,+3=# BYTES IN STRING TO BE SRCHED * 

!* PARAM+4, +5=STARTING ADDRESS OF KEY STRING * 

!* PARAM+6=# OF BYTES IN KEY * 

;* PARAM+7, +8=RESERVED FOR RESULT * 

;* OUTPUT : PARAM+7 , +8=ADDRESS OF SUBSTRING IF FOUND « 

;* OR -1 IF NOT FOUND # 



7F00 


F5 


00250 SSNCHR 


PUSH 


AF 


;SAVE REGISTERS 


7F01 


C5 


00260 


PUSH 


BC 




7F02 


D5 


00270 


PUSH 


DE 




7F03 


E5 


00280 


PUSH 


HL 




7F04 


DDES 


00290 


PUSH 


IX 




7F06 


FDE5 


00300 


PUSH 


lY 




7F08 


CD7F0A 


00310 


CALL 


0A7FH 


;***GET PB LOC N**« 


7F0B 


E5 


00320 


PUSH 


HL 


; TRANSFER TO IX 


7F0C 


DDEl 


00330 


POP 


IX 




7F0E 


DD6E00 


00340 


LD 


L, ( IX+0) 


; PUT STRING START IN 



199 



7F1 1 


DD6601 


00350 




LD 


H, ( IX+1 ) 




7F14 


DD4E02 


00360 




LD 


C) ( IX+2) 


;PUT # OF BYTES IN BC 


7F17 


DD4603 


00370 




LD 


B, ( IX+3) 




7F1A 


DD5E04 


00380 




LD 


E» ( IX+4) 


;PUT SS IN DE 


7F1D 


DD56B5 


00390 




LD 


D, ( IX+5) 




7F20 


D5 


00400 




PUSH 


DE 


; TRANSFER TO lY 


7F21 


FDEl 


00410 




POP 


lY 




7F23 


FD7E00 


00420 


SSN060 


LD 


A, ( IY+0) 


;GET FIRST CHAR OF SS 


7F26 


EDBl 


00430 




CPIR 




; SEARCH FOR 1ST CHAR 


7F28 


2021 


00440 




JR 


NZ, SSN080 


;G0 IF FIRST CHAR NOT FND 


7F2A 


DD4606 


00450 




LD 


B, ( IX+6) 


;GET # OF BYTES IN SS 


7F2D 


05 


00460 




DEC 


B 


; DECREMENT FOR FIRST 


7F2E 


2813 


00470 




JR 


Z ! SSN072 


;ONE BYTE KEY CASE 


7F30 


E5 


00480 




PUSH 


HL 


;SAVE LOC'N OF FIRST 


7F31 


FDE5 


00490 




PUSH 


lY 


;SAVE 1ST CHAR OF SS 


7F33 


FD23 


00500 




INC 


lY 


; POINT TO SECOND OF SS 


7F35 


7E 


00510 


SSN070 


LD 


Ai (HL) 


;GET NEXT BYTE 


7F36 


FDBE00 


00520 




CP 


< lY) 


SCOHPARE 


7F39 


200B 


00530 




JR 


NZ , SSN075 


;eO IF NO HATCH 


7F3B 


23 


00540 




INC 


HL 


;BUMP STRING PNTR 


7F3C 


FD23 


00550 




INC 


lY 


;BUMP SS PNTR 


7F3E 


10F5 


00560 




DJNZ 


SSN070 


;G0 IF MORE 


7F40 


FDEl 


00570 




POP 


lY 


;GET 1ST CHAR POS OF SS 


7F42 


El 


00580 




POP 


HL 


; RESTORE LOC'N OF FIRST+1 


7F43 


2B 


00590 


SSN072 


DEC 


HL 


; ADJUST FOR CPIR 


7F44 


1808 


00600 




JR 


SSN090 


;G0 FOR CLEANUP 


7F46 


FDEl 


00610 


SSN075 


POP 


lY 


; RESET 


7F48 


El 


00620 




POP 


HL 


; RESTORE CUR LOC'N 


7F49 


1SD8 


00630 




JR 


SSN060 


; CONTINUE CPIR 


7F4B 


21FFFF 


00640 


SSN080 


LD 


HL, -1 


;N0T FOUND FLAG 


7F4E 


DD7507 


00650 


SSN090 


LD 


(IX+7),L 


; STORE LOC N OR 'NOT FND' 


7F31 


DD7408 


00660 




LD 


( IX+8) ,H 




7F54 


FDEl 


00670 




POP 


lY 


; RESTORE REGISTERS 


7F36 


DDEl 


00680 




POP 


IX 




7F5B 


El 


00690 




POP 


HL 




7F59 


01 


00700 




POP 


DE 




TFS A 


CI 


00710 




POP 


BC 




7F5B 


Fl 


00720 




POP 


AF 




7F5C 


C9 


00730 




RET 




; RETURN TO CALLING PROG 


0000 




00740 




END 







00000 TOTAL ERRORS 



SSNCHR DECIMAL VALUES 



245, 197, 213, 229, 221, 229, 253, 229, 205, 127, 
10, 229, 221 , 225, 221 , 110, 0, 221 , 102, 1 , 
221 , 78, 2, 22 1 , 70, 3, 221 , 94, 4 , 221 , 
86, 5, 213, 253, 225, 253, 126, 0, 237, 177, 
32, 33, 221, 70, 6, 5, 40, 19, 229 , 253, 
229, 253, 35, 126, 253, 190, 0, 32, 1 1 , 35, 
253, 35, 16, 245, 253, 225 , 225, 43, 24, B, 
253, 225 , 225 , 24, 216, 33, 255 , 255 , 221 , 117, 
7, 221 , 116, 8, 253, 225, 221 , 225, 225 , 209, 
193, 241 , 201 



CHKSUM= 198 



SSOCHR: SEARCH STRING FOR ONE CHARACTER 



System Configuration 

Model I, Model III, Model II Stand Alone. 



Description 

SSOCHR searches a string of any length for a given byte, A "found" or "not 
found" address of the character is returned. The string and byte may contain 
any combinations of data — ASCII, binary, or other combinations. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the starting address of the string to be 
searched in standard Z-80 address format, least significant byte followed by 
most significant byte. The next two bytes of the parameter block contain the 
number of bytes in the string to be searched. The next bytes of the parameter 
block contain the "key" byte, the byte for which the search is to be made. The 
next two bytes are reserved for the result. 

On output, PARAM+5, + 6 contain the result of the search. All other bytes in 
the parameter block are unchanged. The result is a — 1 if the search byte has 
not been found in the string to be searched. If the search byte has been found, 
the result is the actual address of the first occurrence of the search byte in the 
string to be searched. 



INPUT 



POINTER TO PARAM ' 



OUTPUT 

H L 



UNCHANGED 



PARAM+0 

+ 1 
+2 
+3 
+4 
+5 
+6 



ADDRESS 
OF MEM 1+0 



# BYTES 
IN STRING 



SRCH CHAR 



RESERVED 
FOR 
RESULT 



PARAM+0 ' 

+ 1 
+2 
r3 
f4 
f5 
1-6 



"7 



-- UNCHANGED -- 



UNCHANGED -- 



UNCHANGED 



ADDRESS OF 
FOUND CHAR 

OR -1 



MEM 1+0 

+ 1 
+2 
+3 
+4 
+5 
+6 



STRING 

OF 

CHARACTERS 



MEM 1+0 

+ 1 
+2 
+3 
+4 
+5 
+6 



UNCHANGED -- 



Algorithm 

The SSOCHR subroutine performs the search by a "CPIR" block search for the 
first character. 
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The registers are first set up for the CPIR. The string start address of the string to 
be searched is put into the HL register pair. The number of bytes in the string to 
be searched are put into BC. The search byte is put into the A register. The CPIR 
search is then done. 

if the Z flag is not set after the CPIR, the key byte has not been found and the 
code at SSO010 puts a — 1 into the result. If the Z flag is set, the key byte has 
been found. 

Sample Calling Sequence 



NAME OF SUBROUTINE? SSOCHR 
HL VALUE? 50000 

PARAMETER BLOCK LOCATION? 50000 
PARAMETER BLOCK VALUES? 
+02 40000 

5 ADDRESS OF STRING TO BE SEARCHED 
66 5 BYTES 
SEARCH CHARACTER 



LOCATION? 40000 



1 
2 




+ 
+ 

+ 

MEMORY BLOCK 1 
MEMORY BLOCK 1 VALUES? 
+ 1 67 

1 



1 
1 

1 
1 




68 
66 
65 
60 




■ STRING TO BE SEARCHED 



MEMORY BLOCK 2 LOCATION? 
MOVE SUBROUTINE TO? 52000 
SUBROUTINE EXECUTED AT 52000 



INPUT: 






OUTPUT: 








HL= 50000 




HL= 50000 








PARAM+ 





64 


PARAM+ 





64 






PARAM+ 


1 


156 


PARAM+ 


1 


156 






PARAM+ 


2 


5 


PARAM+ 


2 


5 




-UNCHANGED 


PARAM+ 


3 





PARAM+ 


3 









PARAM+ 


4 


66 


PARAM+ 


4 


66 






PARAM+ 


5 





PARAM+ 


5 


66 




-FOUND AT 40002 


PARAM+ 


6 





PARAM+ 


6 


156 




MEMB1+ 





67 


MEMB 1 + 





67 






MEMB1+ 


1 


68 


MEMB1+ 


1 


68 






MEMB1+ 


2 


66 


MEMB1+ 


2 


66 




-UNCHANGED 


MEMB1+ 


3 


65 


MEMB1+ 


3 


65 






MEMB1+ 


4 


60 


MEMB1+ 


4 


60 







NAME OF SUBROUTINE? 

Program Listing 



7F00 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 



ORG 7F00H ; 0522 

;#**##*«*#«*###**#««**#«**»###»«*#***#»*#««#**«**«##«***# 
?* ONE-CHARACTER STRING SEARCH. SEARCHES STRING FOR ONE * 
;* GIVEN CHARACTER. * 
;* input: HL=> PARAMETER BLOCK * 
5* PARAM+0> +1=ADDRESS OF STRING TO BE SRCHED * 

PARAM+2, +3=# OF BYTES * 
;* PARAM+4=SEARCH CHARACTER * 

;* PARAM+5I +6=RESERVED FOR RESULT * 

;# OUTPUT: PARAM+5, +6 SET TO -1 IF NOT FOUND OR ADD- « 
;* RESS OF CHARACTER IF FOUND ♦ 
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7F00 


F5 


00230 


SSOCHR 


PUSH 


AF 


;SAVE REGISTERS 


7F01 


C5 


00240 




PUSH 


BC 




7F02 


E5 


00250 




PUSH 


HL 




7F03 


DDES 


00260 




PUSH 


IX 




7F05 


CD7F0A 


00270 




CALL 


0A7FH 


;***GET PB LOC'N*** 


7F08 


E5 


00280 




PUSH 


HL 


; TRANSFER TO IX 


7F09 


DDEl 


00290 




POP 


IX 




7F0B 


DD6E00 


00300 




LD 


L) i IX+0) 


" r U 1 oIKlNfa AUUKtbb IN HL 


7F0E 


DD6601 


00310 




LD 


H > ( 1 A + 1 / 


;PUT # BYTES IN BC 


/r 1 1 












7F1 4 


DD46B3 


00330 




LD 


B» < IX+3) 




1 T i. ( 


DD7E04 


00340 




LD 


Ai ( IX+4) 


;PUT SEARCH KEY IN A 




Ff>R1 


00350 




CPIR 




; SEARCH 


7F1C 


2003 


00360 




JR 


NZjSSOBIB 


;eO IF NOT FOUND 


7F1E 


2B 


00370 




DEC 


HL 


; FOUND? ADJUST POINTER 


7F1F 


1803 


00380 




JR 


SSO020 


5 SO TO STORE RESULT 


7F21 


21FFFF 


00390 


SSO010 


LD 


HL5 -1 


;FLA6 FOR NOT FOUND 


7F24 


DD7505 


00400 


SSO020 


LD 


(IX+5)»L 


; STORE RESULT 




UUXZ.1 






t8p 


UX+6) > H 


; RESTORE REGISTERS 


7F2C 


El 


00430 




POP 


HL 




7F2D 


CI 


00440 




POP 


BC 




7F2E 


Fl 


00450 




POP 


AF 




7F2F 


C9 


00460 




RET 




! RETURN TO CALLING PROS 


0000 




00470 




END 






00000 TOTAL 


ERRORS 











SSOCHR DECIMAL VALUES 



245) 197i 229 > 221 » 229 j 205? 127; 10? 229 > 221 s 
225) 221 ! 110? 05 221 » 1025 li 221 > 785 2> 
221 > 70> 3. 221 ! 126? 4. 237» 177) 32) 3, 
43) 24) 3) 33) 255) 255? 221) 117) 5) k'21) 
116) 6) 221) 225) 225) 193) 241 ) 201 



CHKSUM= 137 



SSTCHR: SEARCH STRING FOR TWO CHARACTERS 



System Configuration 

Model I, Model III, Model II Stand Alone. 



Description 

SSTCHR searches a string of any length for a "substring" of two bytes. A 
"found" or "not found" address of the substring is returned. The strings may 
contain any combinations of data — ASCII, binary, or other combinations. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the starting address of the string to be 
searched in standard Z-80 address format, least significant byte followed by 
most significant byte. The next two bytes of the parameter block contain the 
number of bytes in the string to be searched. The next two bytes of the parameter 
block contain the "key" string, the string for which the search is to be made. 
The next two bytes are reserved for the result. 
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On output, PARAM+6,+ 7 contain the result of the search. All other bytes in 
the parameter block are unchanged. The result is a — 1 if the search key has not 
been found in the string to be searched. If the search key has been found, the 
result is the actual address of the first occurrence of the search key in the string 
to be searched. 



INPUT 



OUTPUT 



POINTER TO PARAM+0 



+ 



UNCHANGED 



PARAM+0 
+ 1 
+2 
+3 
+4 
+5 
+6 
+7 



ADDRESS OF 
STRING TO BE 
SEARCHED 
(MEM 1+0) 



#0F 
BYTES 



SEARCH 
CHARACTERS 



RESERVED 
FOR RESULT 



PARAM+0 
+ 1 
+2 
+3 
+4 
+5 
+6 
+7 



-7 



UNCHANGED 



UNCHANGED 



-- UNCHANGED -- 



ADDRESS OF 
FOUND STRING 
OR -1 



MEM 1+0 
+ 1 
+2 
+3 
+4 
+5 
+6 



STRING 
TO 
BE 

SEARCHED 



MEM 1+0 

+ 1 



+2 
+3 
+4 
+5 
+6 



UNCHANGED 



Algorithm 

The SSTCHR subroutine performs the search in two steps. First, a "CPIR" block 
search is made for the first character. If the first character is not found, the 
search has been unsuccessful. If the first character is found, a further compari- 
son is done for the second character in the search string. 

The registers are first set up for the CPIR. The string start address of the string to 
be searched is put into the HL register pair. The number of bytes in the string to 
be searched is put into BC. The first character of the search string is put into the 
A register. The CPIR search is then done. 

If the Z flag is not set after the CPIR, the first character of the string has not been 
found and the code at SST020 puts a — 1 into the result. If the Z flag is set, the 
first character of the string has been found. 

The code following the CPIR compares the remaining byte to see if the key 
string matches. In this loop, HL points to the location of the second byte in the 
string to be searched, while IX points to the parameter block location. If the 
second character does not compare; a return back to the CPIR is done with HL 
pointing to the next byte after the byte that was found. If the second character 
compares, the address of the first character in the string to be searched is put 
into the result. 
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Sample Calling Sequence 



NAME OF SUBROUTINE? SSTCHR 
HL VALUE? 42222 

PARAMETER BLOCK LOCATION? 42222 
PARAMETER BLOCK VALUES? 



+ 




45555 START OF STRING TO BE SEARCHED 


+ 2 




7 


7 BYTES IN STRING TO BE SEARCHED 


4 4 


1 


49 




+ 5 


1 


48 


4 6 









+ 8 










Mf MORY 


BLOCK 


1 LOCATION? 45555 


MEMORY 


BLOCK 


1 VALUES? 


+ 


1 


45 




+ 1 


1 


46 




+ 2 


1 


47 




•+ 3 


1 


48 


-INITIALIZE STRING TO BE SEARCHED 


+ 4 


1 


49 


FOR EXAMPLE 


■+ 5 


1 


48 




+ 6 


1 


47 




+ 7 










MEMORY 


BLOCK 


2 LOCATION? 



MOVE SUBROUTINE TO? 
SUBROUTINE EXECUTED 



38000 

AT 38000 



INPUT: 






OUTPUT 






HL= 42222 




HL= 42222 




PARAM+ 





243 


PARAM+ 





243 


PARAM+ 


1 


177 


PARAM+ 


1 


177 


PARAM+ 




7 


PARAM+ 




7 


PARAM+ 


3 





PARAM+ 


3 





PARAM+ 


4 


49 


PARAM+ 


4 


49 


PARAM4- 


5 


48 


PARAM+ 


5 


48 


PARAM+ 


6 





PARAM+ 


6 


247 


PARAM+ 


7 





PARAM+ 


7 


177 


MEMB1+ 





45 


MEMB1+ 





45 


MEMB1+ 


1 


46 


MEMB1+ 


1 


46 


MEMB 1 •+■ 




47 


MEMB 1 + 




47 


MEMB1+ 


3 


48 


MEMB1+ 


3 


48 


MEMB1+ 


4 


49 


MEMB1+ 


4 


49 


MEMB1+ 


5 


48 


MEMB14- 


5 


48 


MEMB 1 + 


6 


47 


MEMB1+ 


6 


47 



-UNCHANGED 



FOUND AT 45559 



-UNCHANGED 



NAME OF SUBROUTINE? 



Notes 

1 . If a search is to be made for an address, the order of the search key should 
be least significant byte followed by most significant byte. If the search is for 
character data, the order of the search key should be first character, second 
character. In other words, arrange the bytes the way they would occur in the 
string to be searched. 

Program Listing 

7F00 00100 ORG 7F00H 5 0522 

001 10 ; «*»#**»#*****»*»#»♦»******«»*«*#*»*##*«#*«*»*«***♦♦****« 

00120 ;* TWO-CHARACTER STRING SEARCH. SEARCHES STRING FOR TWO * 

00130 ;* GIVEN CHARACTERS. * 

00140 ;* INPUT: HL=> PARAMETER BLOCK * 

00150 ;* PARAM+0, +1=ADDRESS OF STRING TO BE SRCHED * 

00160 ;» PARAM+2 5 +3=# OF BYTES * 

00170 ?* PARAM+4 5 +5=SEARCH CHARACTERS * 

00180 ;* PARAM+65 +7=RESERVED FOR RESULT * 

00190 5* OUTPUT :PARAM+6, +7 SET TO -1 IF NOT FOUND OR ADD- * 

00200 ;* RESS OF CHARACTERS IF FOUND * 

002 1 ; ************************************************* 
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00220 












7F00 


F5 


00230 


BBTCHR 


PUSH 




AF 


! SAVF RFGIBTFRS 


7F01 


C5 


00240 




PUSH 




BC 




7F02 


E5 


00250 




PUSH 




HL 




7F03 


DDES 


00260 

«-/ HLJ -tLt 




PUSH 




I X 




7FB5 


CD7F0A 


00270 




CALL 




0A7FH 




7F0S 


E5 


00280 




PUSH 




HL 


; TRANSFER TO TX 


7F09 


DDEl 


00290 




POP 




I X 




7F0B 


DD6E00 


00300 




LD 




L, ( IX+0) 


; PUT STRING ADDRESS IN HL 


7F0E 


DD6601 


00310 




LD 




H, ( IX+1 ) 




7F1 1 


DD4E02 


00320 




LD 




C, ( IX+2) 


; PUT # RYTFS IN BC 


7F14 


DD4603 


00330 




LD 




B, ( IX+3) 




7F17 


DD7E04 


00340 


SST010 


LD 




A, ( I X+4 ) 


; PUT SEARCH KEY IN A 


7F1 A 


EDBl 


00350 




CP I R 








7F1 C 


200D 


00360 




JR 






!fiO IF NOT FOUND 


7F1E 


78 


00370 




LD 




A , B 


■ Tcqr FOR END 


7F1F 


Bl 


00380 




OR 




c 




7F20 


2809 


00390 




JR 




7 , SST020 


; GO I F AT END OF STRING 


7F22 


DD7E05 


00400 




LD 




A, ( T ¥ + ■=) ) 


. ct-T qprOND THAR OF KFY 


7F25 


BE 


00410 




CP 




< HL ) 


; COMPARE TO NEXT BYTF 


7F26 


20EF 


00420 




JR 




IMZ, SST010 


! CONTINUE IF NO MATCH 


7F2B 


2B 


00430 

^L? kJ' 




DEC 




HL 


! An.TDST RACK TO START 


7F29 


1B03 


00440 




JR 






! fiO TO STORF RFSUI T 


7F2B 


2j.FFFF 


004*50 


BST020 


LD 




HL 5 - 1 


.pi at: for NOT FOUND 


7F2E 




00460 


1. J w 1 «J vJ MJ 


LD 




( T X +6 ) , 1 


7i_) 1 ^.■'Rt-. n in CJ !_„ ( 


7F31 


DD7407 


00470 




LD 




( I Y+7 ) , H 




7F34 


DDEl 


00480 




POP 




I X 


■ ppqTORF REGISTERS 


7F36 


El 


00490 




POP 




HL 




7F37 


CI 


fTi f!S R d f>l 




PuP 








7F38 


Fl 


00510 




POP 




AF 




7F39 


C9 


00520 




RET 






; RETURN TO CALLING PROG 


0000 




00530 




END 








00000 TOTAL 


ERRORS 
















BSTCHR DECIMAL 


VALUES 










245 5 1 97 


, 229 


, 


21, 229, 205, 


127, 10, 229, 221, 








225, 221 


, 1 10 


, 


, 221 , 102, 1 , 


221, 78, 2, 








221, 70, 


3, 2 


21 , 


126, 4 , 237 , 


177, 32, 13, 








120, 177 


, 40! 


9, 


22 1 , 1 26 , 5 , 


190, 32, 239, 



43, 24, 3, 33, 255, 255, 221, 117, 6, 221 
116, 7, 221, 225, 225, 193, 241, 201 

CHKSUM= 28 

SXCASS: WRITE/READ SCREEN CONTENTS TO CASSETTE 



System Configuration 
Model I, Model III. 



Description 

SXCASS writes the video display as a cassette record or reads in a previously 
written record to the display. All screen characters and graphics are written to 
the cassette and the subsequent read will restore the entire screen as it ap- 
peared before the write. 
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Input/Output Parameters 

On input, the HL register pair contains a zero for a write or a one for a read. On 
output, the screen has been written as a single cassette record, or the next 
cassette record has been read to the screen. 



INPUT 



OUTPUT 



H 



WRITE 



1=READ 



UNCHANGED 



Algorithm 

If a screen write is to be performed, the code at SXCOlO is executed. This uses 
the ROM subroutine to write leader (287H) of zeroes and a sync byte. The loop 
at SXCOlO calls the ROM "write cassette byte" subroutine to write the video 
display memory contents from location 3C00H through 3FFFH. HL contains the 
pointer to video display memory. The write is done until the H register contains 
40H, signifying that the last screen byte has been written. No checksum or 
other header data is put on the cassette record. 

If a read screen is to be performed, the code at SXC025 is executed. ROM 
subroutine 296H is called to bypass the leader of the next cassette record. The 
loop at SXC030 calls the ROM "read cassette byte" subroutine to read in the 
bytes of the next cassette record into video memory locations 3C00H through 
3FFFH. HL is used as a memory pointer. The read is done until the H register 
contains 40H, signifying that the last screen byte has been read. 

Sample Calling Sequence 

NAME OF SUBROUTINE? SXCASS 
HL VALUE? WRITE 
PARAHETER BLOCK LOCATION? 
MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 37777 
SUBROUTINE EXECUTED AT 37777 
INPUT: output: 
HL- HL= 

NAME OF SUBROUTINE? 

Notes 

1. The read or write operation takes approximately 25 seconds. 

2. This subroutine does not save registers. 



Program Listing 



7F0B 00100 ORG 7F00H 50520 

001 10 ? ***»»*##*«*#»««***#*»»»*«****««**»«**»**«*♦#*«**»*#**«*♦ 
00120 WRITE/READ SCREEN CONTENTS TO CASSETTE. * 
00130 ;* INPUT! HL=0 FOR WRITE SCREEN, 1 FOR READ * 
00140 ;* OUTPUT: SCREEN/ CASSETTE ACTIONS * 
00150 ; ♦♦#*«♦*♦#**♦******#*#****»*»##*****»«»#*#**#**■)(•**#*#«*»» 
00160 ; 
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7F00 


F3 


00170 


SXCASB 


DI 




; DISABLE INTERRUPTS 


7FB1 


AF 


00180 




XOR 


A 


; ZERO A 


7F02 


CD 1 2B2 


00190 




CALL 


21 2H 


; SELECT CASSETTE 


7FB5 


CD7F0A 


00200 




CALL 


0A7FH 


;***SET FUNCTION*** 


7F08 


CB45 


0021 




BIT 


0! L 


■ jpcT FUNCTION 


7F0A 


201 4 


00220 




JR 




;G0 IF READ CASSETTE 






00230 


; WRITE 


HERE 






7F0C 


rD870'"' 


00240 




CALL 


28 7H 


; WR T TF 1 FADFR 


TCITIC 


1 BBJC- 






LU 


HL ? JL\o\dH 


= fr-X A DX i'\tT C-r- DCCKI 

t b 1 AK 1 Ur bLKhfc-N 


/r I Z 


tj 


00260 


b A LW 1 (d) 


rUbH 


HL 


5 bAvfci LUKKbN i LULAIIUN 


7FI3 


7E 


002:70 




LD 


A ? ( HL ) 


; GET NEXT BYTE 


7F14 


CD6402 


00280 




CALL 


264H 


; WRITE TO CASSETTE 


7F17 


EI 


00290 




POP 


HL 


; RESTORE POINTER 


7F18 


23 


00300 




INC 


HL 


;BUMP POINTER 


7F19 


7C 


00310 




LD 


A? H 


;GET POINTER HSB 


7F1A 


FE48 


00320 




CP 


40H 


"TEST FOR SChEEN END-t-l 


/ r J. \^ 








T O 

J K 


NZ ? c>A {^Wl 


7 LUUr 1 r NU 1 t..v4U 


7F1E 


1812 






JR 


OA wsj'tKj 


- ri pAKii IP 






00350 


? READ 


4E RE 






7F20 


W &^ / V.J 


003A0 


/V w «j — / 


CALL. 


296H 


- PYpAcq I FADFR 














" QTART np crppcr m 

7 o 1 H n s Mr o w nr,.i-.) s 


/ r j£o 








i Uori 


HL. 


" QAUCT n IRPPMT i r">rAT TOM 


"71. ■ -'".'"7 








t-ALL.. 




> DC An KIP YT PVTP 
5 Hh-PiU Ntr.. A ! t:« Y i t:. 


"7ir-~ A 

/ r ^Pi 


P" 1 
Ir. 1 






PAP 


14} 

riL, 




7 K ■"■■P. 


77 






i n 

L..LJ 


/Ml "s ^ A 




7F2C 


23 


00420 




INC 


HI 






7r 


KJ k..! C 






A = l-l 

H 3 n 




7F2E 


FE40 






CP 






7F30 


20F4 


00450 




JR 


NZ> SXC030 


;L00P IF NOT END 


7F32 


CDF801 


00460 


SXC040 


CALL 


IFSH 


; DESELECT 


7F35 


C9 


00470 




RET 




; RETURN TO CALLING PROG 


0000 




00480 




END 






0000e 


TOTAL 


ERRORS 











SXCASS DECIHAL VALUES 



243 5 175> 205, 18i 2 5 205? 127» 10, 203. 69, 
32, 205 205 5 135» 2, 33 > 0, 60, 229, 126, 
205, 100, 2, 225, 35, 124, 254, 64, 32, 244, 
24, 18, 205, 150, 2, 33, 0, 60, 229, 205, 
53, 2, 225, 119, 35, 124, 254, 64, 32, 244, 
205, 248, 1, 201 



CHKSUH= 229 



TIMEDL: TIME DELAY 



System Configuration 

Model 1, Model III, Model II Stand Alone. 



Description 

TIMEDL delays a specified amount of time, from 1 millisecond to 65,536 milli- 
seconds, before returning to the user calling program. 



Input/Output Parameters 

On input, the HL register pair contains the number of milliseconds to delay, 
from 1 to 65,536. A value of zero is treated as 65,536. TIMEDL returns after the 

specified delay. 
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INPUT 



H 



+ 



DELAY COUNT #-65,535 
I 



O UTP UT 
H . L 



+ 



UNCHANGED 
1 



Algorithm 

The 1 millisecond time delay loop is the heart of TIMEDL. It consists of one 
instruction, the DJNZ at TIM020. This instruction takes 1 3 cycles when the loop 
is made or 8 cycles when B is decremented to zero. With a given count in B, 
therefore, the time delay is: 

Delay (cycles) = {CNT-1)*13 + 8 

A cycle in the Model I with a standard clock takes 0.56375 microseconds. The 
delay in microseconds is therefore: 

Delay (microseconds) = (CNT- 1 )*7.32875 + 4.51 

To get a time delay of 1000 microseconds (1 millisecond): 

1000 = (CNT-1)*7.32875 + 4.51; 
CNT= 134.83 

The outer loop of TIMEDL controls the number of 1 millisecond inner loops. 
The outer loop has some overhead associated with it, so the count in B for the 
DJNZ is made 134 even. The actual time delay for a given value in HL, HLCNT, 
is now: 

Delay (cycles) = HLCNT*(7 + (133*13 + 8) +15 +12) 
Delay (microseconds) = HLCNT*998.40 

This is about a 0.1 % error on the low side, or about a millisecond for a one^ 
second delay. 

Sample Calling Sequence 

NAME OF SUBROUTINE? TIMEDL 

HL VALUE? MAXIMUM DELAY = 65.535 SECONDS 

PARAMETER BLOCK LOCATION? 

MEMORY BLOCK 1 LOCATION? 

MOVE SUBROUTINE TO? 50000 

SUBROUTINE EXECUTED AT 50000 

INPUT: OUTPUT: 

HL= HL= 

NAME OF SUBROUTINE? 

Notes 

1. Adjust the immediate value loaded into B for clock modified TRS-80s. 

2. Use an immediate value of 153 for Model Ills. 

3. Use an immediate value of 151 for Model lis for delays of .5 to 32768 
milliseconds in units of 1/2 millisecond. 
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Program Listing 



7F00 00100 ORG 7F00H 5 0520 

001 10 ; ******************************************************** 

00120 ; TIME DELAY. DELAYS 1 TO 65f536 MILLISECONDS. ♦ 

00130 ; INPUT: HL=TIME DELAY COUNT, 1 TO 65535. 0=65536 * 

00140 ; OUTPUT: RETURN AFTER DELAY » 

00150 ; ******************************************************** 

00160 ; 



7F00 


C5 


00170 


TIMEDL 


PUSH 


BC 


! SAVE REGISTERS 


7F01 


D5 


00180 




PUSH 


DE 




7F02 


E5 


00190 




PUSH 


HL 




7F03 


CD7F0A 


00200 




CALL 


0A7FH 


;««*GET TD COUNT*** 


7F06 


1 10100 


00210 




LD 


DE» 1 


; DECREMENT 


7F09 


0686 


00220 


TIM010 


LD 


B» 134 


; INNER LOOP COUNT 7 


7F0B 


10FE 


00230 


TIM020 


DJNZ 


TIM020 


; LOOP FOR 1 MS 8/13 






00240 




SBC 


HLs DE 


; DECREMENT TD COUNT 15 


7F0F 


20F8 


00250 




JR 


NZ,TIM010 


;G0 IF NOT OVER 7/12 


7F11 


El 


00260 




POP 


HL 


; RESTORE REGISTERS 


7FI2 


Dl 


00270 




POP 


DE 




7F13 


CI 


00280 




POP 


BC 




7F14 


C9 


00290 




RET 




; RETURN TO CALLING PROG 


0000 




00300 




END 






00000 


TOTAL 


ERRORS 
















TIMEDL DECIMAL 


VALUES 










197? 21 


3 1 229 


205, 127, 10, 17 


1 5 , 6 , 








134i 16 


1 25 4 » 


23 7", 82, 32, 248, 


225, 209, 193, 



CHKSUM= 20 

TONOUT: TONE ROUTINE 

System Configuration 
Model I, Model III. 

Description 

TONOUT outputs a tone through the cassette port. The cassette jack output 
may be connected to a small, inexpensive amplifier for audio sound effects or 
warning tones. The tone ranges from approximately cycles per second (hertz) 
to 14,200 cycles per second. The duration of the tone may be specified by the 
user. 

TONOUT is not a musical tone generator (see MUNOTE), but is a general- 
purpose tone generator to produce tones over a wide range and duration. 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain a frequency count for the subroutine. 
The frequency count may be 1 to 65,535. A frequency count of is regarded as 
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65,536. The frequency decreases as the frequency count increases. A frequency 
count of 1 is approximately 14,200 hertz, while a frequency count of 256 is 
approximately 1 50 hertz. The exact frequency is given by 



Frequency = 1,000,000 / (25.9*COUNT + 44.53) 



The next two bytes of the parameter block contain a duration count of 1 to 
65,535. A duration count of is regarded as 65,536. The greater the duration 
count, the greater will be the duration of the tone. Each duration count pro- 
duces one "cycle" of the tone plus one additional cycle. A tone of 400 hertz, 
for example, is 1/400 or 2.5 milliseconds per cycle, and a duration count of 100 
would cause the 400 hertz tone to be generated for 100*2.5 milliseconds or 1/4 
second. The higher the frequency, the smaller the cycle time, and the duration 
count should be adjusted to compensate for this. Two consecutive 400 hertz 
and 800 hertz tones of 1/4-second duration, for example, should have duration 
counts of 100 and 50, respectively. Maximum duration for a 1000 hertz tone is 
65.5 seconds. 



INPUT 



POINTER TO PARAM+0 



OUTP UT 
H L 



UNCHANGED 



PARAIVI+0 
+ 1 



FREQUENCY 
COUNT 



DURATION 
COUNT 



PARAM4 



+ 1 
+2 
+3 



UNCHANGED 



UNCHANGED 



Algorithm 

TONOUT uses two loops. The outer loop {from TON010) produces the number 
of cycles equal to the duration count. The inner loop is made up of two parts. 
The TON020 portion outputs an "on" pulse from the cassette output. The 
TON030 portion turns off the cassette port for the same period of time. Both 
portions use the frequency count from the parameter block for a timing loop 
count. 

The frequency count is first put into DE and the duration count into IX. The 
TON010 loop puts the DE frequency count into HL and turns on the cassette 
(OUT 0FFH,A). The count in HL is then decremented by one in the TON020 
timing loop. At the end of the loop, the count is again put into HL from DE, the 
cassette is turned off, and the count is decremented by one in the TO N030 
timing loop. After this loop, the duration, or cycle, count in IX is decremented 
by one and if not negative, a jump is made back to TON010 for the next cycle. 



Sample Calling Sequence 



NAME OF SUBROUTINE? TONOUT 
HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 
PARAMETER BLOCK VALUES? 
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FREQUENCY COUNT OF ABOUT 1000 HZ 
DURATION OF ABOUT 10 SECONDS 



+ 2 37 
+ 2 2 10000 
+ 400 

HEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 37000 
SUBROUTINE EXECUTED AT 37000 



INPUT: 
HL= 40000 
PARAM+ 37 
PARAM+ 1 
PARAM+ 2 16 
PARAH+ 3 39 



OUTPUT: 
HL= 40000 
PARAM+ 
PARAM+ 1 
PARAM+ 2 
PARAM+ 3 



37 

16 
39 ^ 



UNCHANGED 



NAME OF SUBROUTINE? 



Notes 

1. Cassette port electronics limits the tone output to 100 through 6000 hertz 
or SO. 

2. The frequency equation above is for a standard TRS-80 Model I clock fre- 
quency. 



Program Listing 



7F00 



7F00 
7F01 
7F02 
7F03 
7F04 
7F06 
7F09 
7F0A 
7F0C 
7F0F 
7F12 
7F13 
7F16 
7F19 
7F1A 
7F1B 
7F1D 
7F20 
7F21 
7F22 
7F24 
7F26 
7F27 
7F2A 
7F2B 
7F2C 
7F2E 
7F30 



F5 
C5 
D5 
E5 

DDES 

CD7F0A 

E5 

DDEl 

DD5E00 

DD5601 

IB 

DD4E02 
DD4603 
0B 
C5 

DDEl 

01FFFF 

6B 

62 

3E01 

D3FF 

09 

DA267F 

6B 

62 

3E02 
D3FF 
09 



00100 

00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 



ORG 7F00H ; 0522 

; *«*»#**#*♦#«#*##♦«««*«**#****»*«♦»*#♦##«#**»«##«*»«»#**» 
;* TONE ROUTINE. OUTPUTS A TONE THROUGH THE CASSETTE * 
;* PORT OF SPECIFIED FREQUENCY AND DURATION. * 
;» INPUT: HL=> PARAMETER BLOCK * 
PARAM+05+l=FREQUENCY COUNT * 
PARAM+2 . +3=DURAT I ON COUNT * 
;* OUTPUT: TONE ON CASSETTE PORT # 
; *#*##«*#*«#»*#♦*#■)(■««»*«**#*«**♦#**##*«***«*****««***«*«* 
; 



TONOUT 



TON010 



TON020 



TON030 



PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

CALL 

PUSH 

POP 

LD 

LD 

DEC 

LD 

LD 

DEC 

PUSH 

POP 

LD 

LD 

LD 

LD 

OUT 

ADD 

JP 

LD 

LD 

LD 

OUT 

ADD 



AF 
EC 
DE 
HL 
IX 

0A7FH 

HL 
IX 

E» ( IX+0) 
D, ( IX+1) 

DE 

C, ( IX+2) 

B, ( IX+3) 

BC 

EC 

IX 

BC>-1 
L,E 
H,D 
A, 1 

(0FFH) , A 

HL,BC 

C » TON020 

L.E 
H^D 
A, 2 

(0FFH) , A 
HLsBC 



;SAVE REGISTERS 



;««*GET PB LOC'N*** 
; TRANSFER TO IX 

;PUT FREQ COUNT IN DE 

; ADJUST FOR LOOP 
;PUT DUR COUNT IN BC 

; ADJUST FOR LOOP 
; TRANSFER TO IX 

;FOR TIGHT LOOP 

;PUT FREQ COUNT IN HL 4 
;4 

; MAXIMUM POSITIVE 7 

? OUTPUT 11 

; COUNT- 1 11 

;LP FOR 1/2 CYC 7/12 
?PUT FRE© COUNT IN HL 4 

;4 

; MAXIMUM NEGATIVE 7 
; OUTPUT 1 1 
; COUNT- 1 1 1 
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7F31 38FD 
7F33 DD09 
7F35 DA207F 
7F3S DDEl 
7F3A El 
7F3B Dl 
7F3C CI 
7F3D Fl 
7F3E C9 

mm 

00000 TOTAL 



ERRORS 



00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 



JR 

ADD 

JP 

POP 

POP 

POP 

POP 

POP 

RET 

END 



IX 
HL 
DE 
BC 
AF 



C,TON030 

IX, BC 

C, TON010 



; RETURN TO CALLING PROG 



; RESTORE REGISTERS 



!LP FOR 1/2 CYC 7/12 
?DECREHENT OUR COUNT 15 
;L00P if NOT DONE 7/12 



TONOUT DECIMAL VALUES 



245) 197, 213» 2295 221 s 229, 205? 127i 10, 229, 

221, 225, 221, 94, 0, 221, B6, 1, 27, 221, 

78, 2, 221, 70, 3, 11, 197, 221, 225, 1, 

255, 255, 107, 98, 62, 1, 211, 255, 9, 218, 

38, 127, 107, 98, 62, 2, 211, 255, 9, 56, 

253, 221, 9, 218, 32, 127, 221, 225, 225, 209, 

193, 241, 201 



CHKSUM= 102 



System Configuration 
Model I, Model III. 

Description 

WCRECD writes a variable- length record from memory to cassette. The record 
may be any number of bytes, from 1 to the limits of memory. The record is 
prefixed by a four-byte header that holds the starting address and number of 
bytes in the remainder of the record. The record is terminated by a checksum 
byte that is the additive checksum of all bytes in the record. Data in memory 
may represent any type of data the user desires; the record is written out as a 
"core image." 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block are the starting address of the data to be 
written out, in standard Z-80 address format, least significant byte followed by 
most significant byte. The next two bytes of the parameter block are the num- 
ber of bytes to be written in the record, 1 to 65,535. A value of is treated as 
65,536 bytes. 

On output, the contents of the parameter block are unchanged and the 
record has been written to cassette. 



WCRECD: WRITE RECORD 



TO CASSETTE 
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INPUT 

H L 



POINTER TO PARAM+0 
1 



PARAM+0 

+ 1 
+2 
+3 



STARTING 

BUFFER 
ADDRESS 



# OF BYTES 
TO BE 
WRITTEN 



PARAM+0 
+ 1 
+2 

p -3 



OUTPUT 

H L 



UNCHANGED 



UNCHANGED 



-- UNCHANGED -- 



Algorithm 

The WCRECD subroutine uses Level II or Level III ROM subroutines to perform 
the write. First, a CALL is made to 212H to select cassette 0. Next, a call is made 
to 287H to write 256 zeroes and a sync byte as leader for the cassette record. 

The four-byte header is written out in the WCR005 loop. This header is taken 
from the parameter block and consists of the two address bytes and the two 
bytes containing the number of bytes in the record. Each byte is written by a 
CALL to 264H. A checksum in B is cleared before the operation; after the 
four- byte write, it contains the partial checksum for the four bytes. 

The starting address for the data and the number of bytes is next put into HL 
and DE, respectively. The loop at WCR010 writes out all of the bytes in the 
memory block by CALLS to 264H. For each CALL, the current value of the byte 
is added to the B checksum subtotal, the pointer to memory in HL is bumped 
by one, and the count in DE is decremented by one. When DE reaches zero, 
the checksum in B is output as the last byte and the cassette is deselected by a 
CALL to 1F8H. 

Sample Calling Sequence 



NAHE OF SUBROUTINE? WCRECD 
HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 
PARAMETER BLOCK VALUES? 
+ 2 15360 BUFFER 
+ 2 2 1024 1024 BYTES 
+ 400 

MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 38000 
SUBROUTINE EXECUTED AT 38000 



INPUT: 




OUTPUT: 




HL= 40000 




HL= 40000 




PARAM+ 





PARAM+ 





PARAM+ 1 


60 


PARAM+ 1 


60 


PARAM+ 2 





PARAM+ 2 





PARAM+ 3 


4 


PARAM+ 3 


4 



•UNCHANGED 



NAME OF SUBROUTINE? 



Notes 

1. This subroutine uses cassette only. 

2. For 500 baud tape operations, each 1000 bytes will take about 20 seconds. 

3. This subroutine does not save registers. 
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Program Listing 



7F00 




00100 


ORG 




7F00H 




5 0520 






00110 








00120 


;* WRITE RECORD 


TO CASSETTE. 


WRITES A VARIABLE-LENGTH * 






00130 


RECORD TO 


CASSETTE FROM A 


GIVEN BUFFER. '* 






00140 


;* INPUT: 


HL 


=> PARAMETER 


BLOCK * 






00150 


;* 


PARAM+0, +1=STARTIN6 BUFFER ADDRESS » 






00160 


; * 


PARAM+2, +3=NUMBER 


OF BYTES TO BE WRITTEN « 






00170 


;* OUTPUT: RECORD WRITTEN 


TO 


CASSETTE * 






00180 


!*»««»«*»«***«*»«»***♦*******«*«*««»**«*»*«*««♦«**««**«»■* 






00190 


a 
5 










7F00 


F3 


00200 












7F01 


AF 


00210 


V AP 
A VIA 




A 




« 7PPA A 


7F02 


CD 1202 


00220 










1 vjCL-C-V 1 SIC 


7F05 


CD8702 


00230 






OP"7M 
X.O / ri 






7F08 


CD7F0A 


00240 






i^A7crw 
kUH / r ri 






7F0B 


E5 


00250 






Lil 

rlL. 






7F0C 


010004 


00260 


Li; 










7F0F 


7E 


00270 






A 5 I HL ) 






7F10 


F5 


00280 


PUSH 




AF 




? bAvb BY 1 c. 


7F1 1 


81 


00290 


ADD 




An C 




; CHECKSUM 


7F12 


4F 


00300 


LD 




C? A 




?SAvh CHLCKbUn 


7F13 


Fl 


00310 


POP 




AF 




; RESTORE ORIG BYTE 


7F14 


C5 


00320 


PUSH 




BC 




;SAVE COUNT? CHECKSUM 


7F15 


E5 


00330 


PUSH 




HL 




7 SAVE POINTER 


7F16 


CD6402 


00340 


CALL 




264H 




; WRITE BYTE TO CASSETTE 


7F19 


El 


00350 


POP 




HL 




; RESTORE POINTER 


7F1A 


CI 


00360 


POP 




BC 




5 GET COUNT) CHECKSUM 


7F1B 


23 


00370 


INC 




HL 




; BUMP POINTER 


7F1C 


10F1 


00380 


DJNZ 




WCR005 




SLOOP FOR 4 HEADER BYTES 


7F1E 


DDEl 


00390 


POP 




IX 




; COMPLETE TRANSFER TO I X 


7F20 


41 


00400 


LD 




B? C 




; CHECKSUM 


7F21 


DD6E00 


00410 


LD 




L? < I X+0 ) 




j&El blARTlNb ADDHciSS 


7F24 


DD6601 


00420 


LU 




Lj_ / T V _i_ 1 \ 

n? \ I A+ 1 / 






7F27 


DD5E02 


00430 


LU 




rr „ / T V j-o \ 

fc. » \ i A+Z / 




5 Oil 1 W D T 1 ElO 


7F2A 


DD5603 


00440 


LU 










7F2D 


C5 


00450 


j.jpDiTi 1 ra Pi fCLJ 
W Ur(Wj J. Vj nUort 










7F2E 


D5 


00460 


PI icui 








"QAUP Mi AP PVTPC; 


7F2F 


E5 


00470 


rUori 




riL 






7F30 


7E 


00480 






A _ / HI \ 

H 9 \ riL_ / 






7F31 


CD6402 


00490 






■7AAW 




3 yP f TP TA TA^^QFTTP 


7F34 


El 


00500 


POP 




HL 




; RESTORE POINTER 


7F35 


Di 


00510 


POP 




DE 




; RESTORE # OF BYTES 


7F36 


CI 


00520 


POP 




BC 




;GET CHECKSUM 


7F37 


7E 


00530 


LD 




A) (HL) 




;BYTE JUST OUTPUT 


7F38 


80 


00540 


ADD 




A?B 




5 COMPUTE CHECKSUM 


7F39 


47 


00550 


LD 




B. A 




;SAVE 


7F3A 


23 


00560 


INC 




HL 




5 BUMP POINTER 


7F3B 


IB 


00570 


DEC 




DE 




5 DECREMENT # BYTES 


7F3C 


7A 


00580 


LD 




AsD 




;TEST FOR ZERO 


7F3D 


83 


00590 


OR 




E 






7F3E 


20ED 


00600 


JR 




NZ»WCR010 




SLOOP IF NOT END 


7F40 


78 


00610 


LD 




A,B 




;QET CHECKSUM 


7F41 


CD6402 


00620 


CALL 




264H 




! OUTPUT AS LAST BYTE 


7F44 


CDF801 


00630 


CALL 




1F8H 




! DESELECT 


7F47 


09 


00640 


RET 








; RETURN TO CALLING PROS 


0000 




00650 


END 











WCRECD DECIMAL VALUES 



243> 175, 2055 18^ 2» 205) 135? 2) 205) 127, 
10, 229, 1, 0, 4, 126, 245, 129, 79, 241, 
197, 229, 205, 100, 2, 225, 193, 35, 16, 241, 
221, 225, 65, 221, 1 10, 0, 221, 102, 1, 221, 
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WRDSEC: WRITE DISK SECTOR 



945 25 2215 86) 3» 1975 2135 2295 1265 205? 
1005 25 225. 2095 1935 1265 1285 71 5 355 275 
1225 1795 325 2375 1205 2055 1005 25 2055 2485 
1 5 201 



CHKSUM= 139 



System Configuration 
Model I. 



Description 

WRDSEC writes one sector from a specified buffer area to a specified disk 
drive. The user must know where a particular file is to be and what sectors are 
involved to utilize this subroutine. It is not a general-purpose "file manage" 
subroutine. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
byte of the parameter block contains the disk drive number, to 3, correspond- 
ing to disk drives 1 through 4. The next byte of the parameter block contains the 
track number, through N. (Standard TRS-80s use disk drives with 35 tracks; 
other drives are available for 40 tracks.) The next byte is the sector number, 
through N (0 through 9 will be the most common range). The next two bytes are 
the user buffer area for the write in standard Z-80 address format, least signifi- 
cant byte followed by most significant byte. The next byte contains a zero if a 
wait is to occur until the disk drive motor is brought up to speed; the byte 
contains a 1 if the motor is running (disk operation has just been completed) 
and no wait is necessary. The next byte (PARAM + 6) is reserved for the status of 
the disk write on output. 

On output, all parameters remain unchanged except for PARAM-f6, which 
contains the status of the write. Status is for a successful write, or nonzero if 
an error occurred during any portion of the write. If an error did not occur, the 
contents of the buffer has been written to the sector. 



INPUT 



POINTER TO PARAM+0 



gyTPUT 

H L 



UNCHANGED 



PARAM+0 

+ 1 
+2 
+3 
+4 
+5 
+6 



DRIVE # 0-3 



TRACK # 



SECTOR # 



BUFFER 
ADDRESS 
(MEM 1+0) 



=WAIT 1=N0 
WAIT 



RESERVED 



PARAM+0 

4- 1 
+2 
+3 

+5 
+6 



UNCHANGED 



UNCHANGED 



UNCHANGED 



-- UNCHANGED 



UNCHANGED 



0=NO ERROR 
^0=^ERROR 



216 



MEM 1+0 



MEM 1+0 



+ 1 



+ 1 



+2 



+3 



+4 



256 
BYTES 

OF 
DATA 
TO BE 
WRITTEN 



+3 



+2 



+4 



UNCHANGED 



+5 



+5 



+6 



+6 



Algorithm 



The disk drive number in L is first converted to the proper select configuration 
at WRD010. The select byte is then output to disk memory-mapped address 
37E0H to select one of the disk drives. 

The wait bit is then examined. If this bit is a zero, the loop at WRD015 counts 
HL through 65,536 counts to wait until the disk drive motor is up to speed 
before continuing. 

The disk status is then examined (WRD020). If the disk is not busy, the track 
number is loaded into the disk controller track register (37EFH) and a seek 
command is given (37ECH) to cause the controller to "seek" the track for the 
operation. A series of time-wasting instructions is then done. 

The code at WRD030 gets the disk status after completion of the seek and 
ANDs it with a "proper result" mask. If the status is normal, the write contin- 
ues, otherwise an "abnormal" completion is done to WRD090. 

The sector address from the parameter block is next output to the controller 
sector register (37EEH). Two time-wasting instructions are then done. 

A write command is then issued to the disk controller command register 
(37ECH). Further time-wasting instructions are done. 

The loop at WRD040 performs the actual write of the disk sector. A total of 256 
separate writes is done, one for each byte. HL contains the disk address of 
37ECH, DE contains a pointer to the buffer address, and BC contains the data 
register address of the disk controller. For each of the 256 reads, status is 
checked. If bit is set, all 256 bytes have been written. If bit 1 of the status is 
set, the disk controller is still busy and a loop back to WRD040 is done. If bit 1 
of the status is not set the next byte is read from memory, written to the disk, 
and the memory buffer pointer incremented. 

At the automatic (by the controller) termination of the write, status is again 
read, and an AND of 7 is done to check for the proper completion bits. The 
status is stored back into the parameter block. 

Sample Calling Sequence 

NAME OF SUEiROUTINE? WRDSEC 
HL VALUE? 40000 

PARAHETER EsLOCK LOCATION? 40000 
PARAMETER BLOCK VALUES? 
+ 1 DRIVE 

+ 1 1 20 TRACK 20 
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+ 2 1 5 SECTORS 
+ 3 2 45000 BUFFER 
+■ 5 .1 WAIT 
■+ 6 1 
+ 700 

MEHORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 38000 
SUBROUTINE EXECUTED AT 38000 
INPUT: output: 
HL= 40000 HL= 40000 

PARAM+ PARAM+ 

PARAM+ 1 20 PARAM+ 1 20 
PARAM+ 2 5 PARAM+ 2 5 

PARAM+ 3 200 PARAM+ 3 200 
PARAM+ 4 175 PARAM+ 4 175 
PARAH+ 5 PARAM+ 5 

PARAM+ 6 PARAM+ 6 



NAME OF SUBROUTINE? 



Notes 

1 . Always perform an RESTDS operation before initial disk I/O to initialize the 
disk controller. 



Program Listing 



7F00 




00100 




ORS 


7F00H 


;0522 






00110 


;*«♦***#***#********«##**♦**#*«#«**#*###**«***«#*«»*#*** 






00120 


;* 


WRITE DISK 


SECTOR. WRITES 


BUFFER INTO SPECIFIED 






00130 


;* 


TRACK! SECTOR OF DISK. 








00140 


;* 


INPUT! 


HL=> PARAMETER 


BLOCK 






00150 


;* 




PARAM+0=DRIVE # 


! - 3 






00160 


" * 




PARAM+1=TRACK # 


» - N 






00170 


;* 




PARAM+2=SECT0R 


#) - N 






00180 


;* 




PARAM+3! +4=BUFFER ADDRESS 






00190 


; * 




PARAM+5=0=WAIT 


AFTER SELECT) 1=N0 WAIT 






00200 


;* 




PARAM+6=STATUS) 


0=OK, 1=BAD 






00210 


;# 


OUTPUT : 


BUFFER WRITTEN 


TO TRACK 1 SECTOR 






00220 








00230 


7 








7F00 


F5 


00240 


WRDSEC PUSH 


AF 


;SAVE REGISTERS 


7F01 


C5 


00250 




PUSH 


BC 




7F02 


D5 


00260 




PUSH 


DE 




7F03 


E5 


00270 




PUSH 


.HL 




7F04 


DDE5 


00280 




PUSH 


IX 




7F06 


CD7F0A 


00290 




CALL 


0A7FH 


; «»#GET PB LOC'N*** 


7F09 


E5 


00300 




PUSH 


HL 


; TRANSFER TO IX 


7F0A 


DDEl 


00310 




POP 


IX 




7F0C 


DD7E00 


00320 




LD 


A, ( IX+0) 


SGET DRIVE # 


7F0F 


3C 


00330 




INC 


A 


; INCREMENT BY ONE 


7F10 


47 


00340 




LD 


B, A 


5 PUT IN B FOR CONVERT 


7F11 


3Ee0 


00350 




LD 


A,80H 


; MASK 


7F13 


07 


00360 


WRD010 RLCA 




; ALIGN FOR SELECT 


7F14 


10FD 


00370 




DJNZ 


WRD010 


; CONVERT TO ADDRESS 


7F16 


32E037 


00380 




LD 


(37E0H)!A 


; SELECT DRIVE 


7F19 


DD7E05 


00390 




LD 


A? ( IX+5) 


;GET WAIT/NO WAIT 


7F1C 


B7 


00400 




OR 


A 


!TEST 


7F1D 


200B 


00410 




JR 


NZ!WRD020 


;go if no wait 


7F1F 


210000 


00420 




LD 


HL,0 


SWA IT COUNT 


7F22 


28 


00430 


WRD015 DEC 


HL 


! DELAY LOOP 6 


7F23 


7D 


00440 




LD 


A,L 


;TEST DONE 4 


7F24 


84 


00450 




OR 


H 


54 



^UNCHANGED 



-STATUS OK 
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7F25 


20FB 


00460 




JR 


NZiWRD015 


;LOOP UNTIL HL=0 7/12 


7F27 


3AEC37 


00470 


WRD020 


LD 


Ai (37ECH) 


;GET STATUS 


7F2A 


CB47 


00480 




BIT 


05 A 


; TEST BUSY 


7F2C 


20F9 


00490 




JR 


NZ» WRD020 


; LOOP IF BUSY 


7F2E 


DD7E01 


00500 




LD 


A» < IX + 1 ) 


; GET TRACK NUMBER 


7F31 


32EF37 


00510 




LD 


(37EFH) 1 A 


; OUTPUT TRACK # 


7F34 


C5 


00520 




PUSH 


BC 


! WASTE TIME 


7F35 


CI 


00530 




POP 


BC 




7F36 


3E17 


00540 




LD 


As 17H 


; SEEK COMMAND 


7F3B 


32EC37 


00550 




LD 


(37ECH) 5 A 


; OUTPUT 


7F3B 


C5 


00560 




PUSH 


BC 


; WASTE TIME 


7F3C 


CI 


00570 




POP 


BC 




7F3D 


C5 


00580 




PUSH 


BC 




7F3E 


CI 


00590 




POP 


BC 




7F3F 


3AEC37 


00600 


WRD030 


LD 


As ( 37ECH ) 


; GET STATUS 


7F42 


CB47 


00610 




BIT 


0! A 


5 TEST BUSY 


7F44 


20F9 


00620 




JR 


NZ t WRD030 


; LOOP IF BUSY 


7F46 


E69B 


00630 

«^ V-f %J i<J Vjf 




AND 


98H 


! TEST FOR NORMAI rOMPI 


7F48 


202C 


00640 




JR 


NZj WRD090 


7 SO IF ABNORMAL 


7F4A 


DD7E02 


00650 




LD 


As ( IX+2) 


;GET SECTOR # 


7F4D 


32EE37 


00660 




LD 


< 37EEH) 1 A 


; OUT PUT 




C5 






PUSH 


BC 


!UlA'nTF TTMF 


7F5 1 


CI 






POP 


BC 




7F52 


21EC37 


00690 




LD 


HLs 37ECH 


;DISK ADDRESS 


7F55 


DD5E03 


00700 




LD 


Es ( I X+3 ) 


: PUT BUFFER ADDRESS IM DF 


7F58 




00710 




LD 


Ds ( I X+4 ) 




7F5B 


3EAC 


00720 




LD 


As 0ACH 


! WRITE COMMAND 


7F5D 


77 


00730 




LD 


( HL ) 5 A 


; OUTPUT 


7F5E 


C5 


00740 




PUSH 


BC 


; WASTE TIME 


7F5F 


CI 


00750 




POP 


BC 




7F60 


05 


00760 




PUSH 


BC 




7F61 


CI 


00770 




POP 


BC 




7F62 


01EF37 


00780 




LD 


BCs 37EFH 


;DATA REG ADDRESS 


7F65 


7E 


00790 


WRD040 


LD 


As <HL) 


SGET STATUS 


7F66 


0F 


00800 




RRCA 




; AL I GN 


7F67 


3008 


00810 




JR 


NCs WRD050 


; GO IF DONE 


7F69 


0F 


00820 




RRCA 




;AI TfiN 


7F6A 


30F9 






JR 




; Cf) TF KI(")T nRA 


7F6C 


1 A 


j7IPIR4Pl 




LD 


ri s \ L/C / 


;(=FT P.YTF 


7F6D 


02 


P10R50 




LD 




■ OUTPUT TD n T QK' 


7F6E 


13 






I NC 


DE 


■ T NirRFMFIMT MFMnnv PMTP 


7F6F 


18F4 


00870 




JR 


WRD040 


; LOOP Til DONE 


7F71 


3AFC37 


00880 


UIRD050 


LD 




; GFT STATUS 


7F74 


E607 


00890 




AND 


7 


; CHECK FOR PROPER STATUS 


7F76 


DD7706 


00900 


WRD090 


LD 


( I x+6 ) s A 


; STORE STATUS 


7F79 


DDE 1 


00910 




POP 


I X 


; RESTORE REGISTERS 


7F7B 


E 1 


00920 




POP 


HL 




7F7C 


01 


00930 




POP 


DE 




7F7D 


CI 


00940 




POP 


BC 




7F7E 


Fl 


00950 




POP 


AF 




7F7F 


C9 


00960 




RET 




; RETURN TO CALLING PROG 


0000 




00970 




END 






0000e 


TOTAL 


ERRORS 











WRDSEC DECIMAL VALUES 



245s 197, 213s 229s 221s 229> 205, 1275 10s 2295 

221 5 225 9 221s 1265 05 605 71 s 62 9 1285 75 

16s 253 » 505 224 5 55 5 221s 126s 5s 183s 325 
8s 339 0s 05 43s 125, 1805 32, 251s 58, 

236, 55s 203, 71 s 32, 2495 221s 1265 Is 505 

239s 555 197, 1939 62s 235 50s 2369 559 197s 
1939 1979 1935 5Bs 236s 555 2035 71s 32s 249s 

230s 152s 32, 44s 221s 1265 25 505 2385 55s 



1975 193? 33s 236, 55; 2215 94) 3? 221 » S&s 
4! 62, 172! 119? 197? 193? 197? 193? 1? 239? 
55? 126? 15? 48? 8? 15? 48? 249? 26? 2? 
19? 24? 244? 58? 236? 55? 230? 7? 221, 119? 
6? 221, 225? 225? 209, 193, 241? 201 



CHKSUH= 23 
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PPE 1^1 I Xl I 
Z-80 Instruction Set 



The following is a brief explanation of the Z-80 instructions used in the TRS-80 
subroutines. Refer to Zilog or Radio Shack documentation for more detailed 
descriptions. 

ADC 

This instruction adds one byte plus the current contents of the Carry flag to the 
contents of the A register when used in the format "ADD A,B"; the byte may be 
in another CPU register, an immediate value, or from memory. The instruction 
adds two bytes from a register pair plus the current contents of the Carry flag to 
the contents of HL, IX, or lY, when used in the format "ADD HL,DE." Flags are 
affected. 

ADD 

This instruction adds one byte to the contents of the A register when used in the 
format "ADD A,B"; the byte may be in another CPU register, an immediate 
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value, or from memory. The instruction adds two bytes from a register pair, IX, 
or lY to the contents of HL, IX, or lY, when used in the format "ADD HL,DE." 
Flags are affected. 

AND 

This instruction logically ANDs one byte and the contents of the A register. The 
byte may be in a CPU register, an immediate value, or from memory. Typical 
format is "AND B," which ANDs the B and A registers. Flags are affected. 

BIT 

This instruction tests the bit of a CPU register or memory location. "BIT 7,8" 
tests bit 7 of the B register, while "BIT 0, (HL)" tests bit of the memory 
location pointed to by the HL register pair. The state of the bit goes into the 
Carry flag. 

CALL 

This instruction calls a subroutine by pushing the return address into the stack. 
In the format "CALL 0212H" it is an unconditional call. In the format "CALL 
NZ,0212H" it is a conditional call. The conditions may be on the state of the 
Zero, Carry, Sign flag, or other flags. No flags affected. 

CCF 

This instruction complements the Carry flag; a set is changed to reset and vice 
versa. 

CP 

This instruction compares two bytes, one in the A register, and one from an- 
other CPU register or memory. The result does not replace the contents of A, but 
only sets the flags on the result of the compare. Typical format is "CP (HL)," 
which compares A with the contents of the memory location pointed to by the 
HL register pair. Flags are affected. 

CPD 

This instruction performs one step of an "end to beginning" block compare, 
using A as the comparison key, HL as the pointer, and BC as the number of 
bytes. Flags are affected. 

CPDR 

This instruction performs an "end to beginning" block compare, using A as 
the comparison key, HL as the pointer, and BC as the number of bytes. Flags 
are affected. 
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CPI 



This instruction performs one step of a "beginning to end" block compare, 
using A as the comparison key, HL as the pointer, and BC as the number of 
bytes. Flags are affected. 

CPIR 

This instruction performs a "beginning to end" block compare, using A as the 
comparison key, HL as the pointer, and BC as the number of bytes. Flags are 
affected. 

CPL 

This instruction complements the contents of A; all ones are changed to zeroes, 
and all zeroes to ones. Most flags are unaffected. 

DAA 

This instruction adjusts the result in the A register so that it is a "decimal" or 
bed result. Flags are affected. 

DEC 

This instruction decrements the contents of a CPU register by one, when used 
in the format "DEC E." When used in the format "DEC HL," it decrements the 
contents of a register pair by one. When used in the format "DEC (HL)" or 
"DEC (IX+5)" it decrements the contents of a memory location by one. Flags 
are affected only in the 8-bit case. 

Dl 

This instruction disables interrupts. 
DINZ 

This instruction decrements the contents of the B register and then jumps if the 
result is not zero. It is relocatable. Typical format is "DJNZ 9000H." Flags are 
unaffected. 

El 

This instruction enables interrupts. 
EX 

This instruction swaps the contents of EX and HL when it is used in "EX DE,HL" 
or points to the "primed set" of the A register and flags when it is used in "EX 
AF,AF" or exchanges the first two bytes in the stack with HL, IX, or lY when 
used in "EX (SP),HL" format. Flags are unaffected. 



EXX 



This instruction switches to the primed set of BC, DE, and HL. Flags are unaf- 
fected. 

IN 

This is the input instruction, it inputs a value from an input/output device into 
the A register when in the form "IN A,(OFFH)." Flags are affected. 

INC 

This instruction increments the contents of a CPU register by one, when used in 
the format "INC E." When used in the format "INC HL," it increments the 
contents of a register pair by one. When used in the format "INC (HL)" or "INC 
(IX+5)" it increments the contents of a memory location by one. Flags are 
affected in 8-bit case only. 

IP 

This is the jump instruction. In the format "JP 9000H" or "JP (HL)," it is an 
unconditional jump. In the format "JP NZ,9000H," it is a conditional jump. The 
condition may be on the Zero flag (Z, NZ), Carry flag (C, NC), Sign flag (M, P), 
or other flags. Flags are unaffected. 

m 

This is the jump "relative" instruction. It is identical in function to the "JP" 
instruction except that it is relocatable. Typical format is "JR 9000H" for an 
unconditional jump or "JR NZ,9000H" for a conditional jump. Flags are unaf- 
fected. 

LD 

This is the load instruction. It transfers data between CPLJ registers or between 
CPU registers and memory. When it is used to transfer data between two CPU 
registers, 8 bits will be transferred, and the format will be similar to "LD A,B" 
where B is the "source" and A is the destination. When it is used to transfer 
from a CPU register to memory, the format will be similar to "LD (3C00H),A" 
or "LD (HL),A"; the former transfers 8 bits from A to memory location 3C00H, 
the later transfers 8 bits from A to the memory location pointed to by HL. The 
format for 8 bit transfers from memory to a register will be reversed, as in "LD 
A,(3C00H)" and "LD A,(HL)." 

LD can also be used to transfer 16 bits of data between a register pair and 
memory. The format will be similar to "LD HL,(3C00H)," which transfers the 
contents of location 3C00H and 3C01 H to the L and H registers, respectively. 
To transfer data between memory and a register pair, the format is reversed as 
in "LD (3C00H),HL." 
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LD can also be used to transfer immediate data into a register or register pair, as 
in "LD A,45H/' which loads A with 45H, or "LD HL,3CO0H" which loacJs HL 
with the value 3C00H. Flags are unaffected. 

LDD 

This instruction performs one step of an "end to beginning" block move, using 
HL as the "source pointer," DE as the "destination pointer," and BC as the byte 
count. Flags are affected. 

LDDR 

This instuction performs one step of an "end to beginning" block move, using 
HL as the "source pointer," DE as the "destination pointer," and BC as the byte 
count. Flags are affected. 

LDl 

This instruction performs one step of a "beginning to end" block move, using 
HL as the "source pointer," DE as the "destination pointer," and BC as the byte 
count. Flags are affected. 

LDIR 

This instruction performs a "beginning to end" block move, using HL as the 
"source pointer," DE as the "destination pointer," and BC as the byte count. 
Flags are affected. 

NEC 

This instruction takes the two's complement of the A register. It "negates" the 
contents of A. Flags are affected. 

NOP 

This instruction is a "no operation" performing no function. Flags are unaf- 
fected. 

OR 

This instruction logically ORs one byte and the contents of the A register. The 
byte may be in a CPU register, an immediate value, or from memory. Typical 
format is "OR B," which ORs the B and A registers. Flags are affected. 

OUT 

This is the output instruction. It outputs a byte from the A register to an 
input/output device when in the form "OUT (OFFH),A." Flags are unaffected. 
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POP 



This instruction POPs a two-byte value from the stack and puts it into a register 
pair. "POP DE" loads the D and E registers with the next two bytes from the 
stack and adjusts the SP register by two. Flags are unaffected unless AF 
POPped. 

PUSH 

This instruction pushes a register pair, IX, or lY onto the stack. "PUSH BC" 
pushes the contents of B and C onto the stack and adjusts the SP register by 
two. Flags are unaffected. 

RES 

This instruction resets a bit in a CPU register or memory location. "RES 5,A" 
resets bit 5 of the A register to 0, while "RES 2,(HL)" resets bit 2 of the memory 
location pointed to by the HL register pair. Flags are unaffected. 

RET 

This instruction returns from a subroutine by popping the return address from 
the stack. If the format is "RET," it is an unconditional return; if the format is 
"RET NZ," the return is conditional upon the Zero, Carry, Sign, or other flags. 
Flags are unaffected. 

RL 

This instruction rotates the contents of a CPU register and carry (nine bits) left 
one bit position. Typical format is "RL D" which rotates the D register and 
carry. Flags are affected. 

RLA 

This instruction rotates the A register and carry (nine bits) one bit position left. 
Flags are affected. 

RLC 

This instruction rotates the contents of a CPU register one bit position left. 
Typical format is "RLC E," which rotates the E register. Flags are affected. 

RLCA 

This instruction rotates the A register one bit position left. Flags are affected. 
RLD 

This instruction rotates the memory location pointed to by HL and the least 
significant four bits of the A register four bits left. It is a "bed shift." Flags are 
affected. 
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RR 



This instruction rotates the contents of a CPU register and carry (nine bits) one 
bit position right. Typical format is "RR B" which rotates the B register and 
carry. Flags are affected. 

RRA 

This instruction rotates the A register and carry (nine bits) one bit position right. 
Flags are affected. 

RRC 

This instruction rotates the contents of a CPU register one bit position right. 
Typical format is "RRC H," which rotates the H register. Flags are affected. 

RRCA 

This instruction rotates the A register one bit position right. Flags are affected. 
RRD 

This instruction rotates the memory location pointed to by HL and the least 
significant four bits of the A register four bits right. It is a "bed shift." Flags are 
affected. 

SBC 

This instruction subtracts one byte minus the current contents of the Carry flag 
from the contents of the A register when used in the format "SBC A,B"; the byte 
may be in another CPU register, an immediate value, or from memory. The 
instruction subtracts two bytes from a register pair minus the current contents of 
the Carry flag from the contents of HL, IX, or lY, when used in the format "SBC 
HL,DE." Flags are affected. 

SCF 

This instruction sets the Carry flag. 
SET 

This instruction sets a bit in a CPU register or memory location. "SET 5,C" sets 
bit 5 of the C register, while "SET 0,(HL)" sets bit of the memory location 
pointed to by the HL register pair. Flags are unaffected. 

SLA 

This instruction logically shifts a CPU register one bit position left. Typical 
format is "SLA H," which shifts the H register. Flags are affected. 
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SRA 

This instruction arithmetically shifts a CPU register one bit position right. Typi- 
cal format is "SRA A," which shifts the A register. Flags are affected. 

SRL 

This instruction logically shifts a CPU register one bit position right. Typical 
format is "SRL I," which shifts the L register. Flags are affected. 

SUB 

This instruction subtracts one byte from the contents of the A register when 
used in the format "SUB A,B"; the byte may be in another CPU register, an 
immediate value, or from memory. The instruction subtracts two bytes from a 
register pair, IX, or lY from the contents of HL, IX, or lY, when used in the 
format "SUB HL,DE." Flags are affected. 

XOR 

This instruction logically exclusive ORs one byte and the contents of the A 
register. The byte may be in a CPU register, an immediate value, or from mem- 
ory. Typical format is "XOR B," which XORs the B and A registers. Flags are 
affected. 
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APPENDIX II 

Decimal/Hexadecimal 
Conversion 
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!7i 
iLi 




AA 




1 
1 


ml 


O-J 


A 1 


z 


02 


66 


42 


3 


03 


67 


43 


H 




OD 


A A 


□ 




/_ 


A c= 
4-3 


A 




■7f7i 


A A 


7 


07 


7 1 


47 


8 


08 


72 


48 


9 


09 


73 


49 


10 


0A 


74 


4A 


1 1 
i. J. 




( —1 


AR 






■7 A 
/ 


A r 




0D 


/ / 


A ?^ 






~70 


A ET 

4b 


1 □ 






A C 

4r 


i A 
I o 






□ Iti 


1 "7 


1 1 


X 


-3 i 


i 8 


1 2 


82 




4. T 




Ot-i 




■"■fa 


1 A 

X *T 


PA 


SA 


■"■ 1 


1 s 

i - J 


o_j 
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-J ~J 




i A 


PA 


^ A 
-J 


..r- iJ) 


1 y 

X t 


ay 


_J / 




1 p 

i o 


00 


_j 


"I' 1=1 


i 7 


OQ 


-J / 




1 A 


QUi 
/ «J 


_J H 


^ / 


1 P 


Q 1 




■"■O 
ji. C5 


1 r 

X \j 


92 


5C 


■~'Q 


1 n 

X u 


93 


5D 




i IT 

1 iz. 


A 




31 


IF 


95 


5F 




20 


96 


60 


33 


21 


97 


61 


34 




98 


62 


35 


'Z3 


99 


63 


Jo 




1 00 


A A 


37 


25 


101 


65 


38 


26 


1 02 


66 


39 


27 


1 

X UJw> 


A7 




■~>o 


X tt;*T 


AR 
00 


A 1 


■~'Q 


X 4£J_) 


AQ 


A ■""> 


2 A 


1 liD6 


6A 
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op 


X / 


AP 


44 


2C 


1 08 


6C 


45 


2D 
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6D 


46 


2E 


110 


6E 




..::r 


X X i 


AP 

or 


48 


30 


112 


70 


49 


31 


113 


71 






■i i A 
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-7.-, 
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33 
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73 
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/4 
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D 
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/ 
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-JCi 
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58 


3A 




7A 


59 


3B 
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7B 


60 


3C 


124 


7C 


61 


3D 


125 


7D 


62 


3£ 
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7E 


63 


3F 


127 


7F 



X jcD 


RU\ 
DlfcJ 


1 Q? 
X 7 ^ 


C0 
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X 
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X 7 
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\j X 


1 OKI 
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0^ 
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DO 
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uo 
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RA 
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TA 


X 00 
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1 R7 

X 7 / 
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RA 

DO 
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X 70 


wD 
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87 


199 


C7 


136 


88 


200 


C8 


137 


89 


201 


C9 


1 38 


8A 
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CA 


1 39 


8B 
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CB 


1 AR 
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Lf 


oraA 


rr 
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X *+ X 
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1 AO 
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oraA 
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1 A"? 


or 
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.iL.luD 
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X *T-J 
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7 X 
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U X 


1 46 


92 
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02 


X *T / 


0-7 

T vJ 


X X 


D3 


1 AR 
X *f 


QA 

7*t 


jfi. X X. 


DA 


1 49 


95 
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D5 


X -JvJ 


96 


214 


06 


1 ~J X 


7 / 


215 


07 


152 


98 


216 


D8 


153 


99 


217 


09 
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9A 


218 


DA 


155 


9B 


219 


DB 


156 


9C 


220 


DC 


157 


90 


221 


DO 


X Do 




JL.JL.jU 


np 


159 


9F 


223 


OF 


160 


A0 


224 


E0 


161 


Al 


225 


El 


1 62 


A 2 


226 


E2 


163 


A3 


227 
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X O'^ 


AA 


228 


E4 
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A5 


229 


E5 


166 


A6 
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E6 
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A7 
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E7 


1 68 


A8 
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E8 


1 69 


A9 
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E9 


X /«3 


A A 
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PA 
PH 


X f X 


AP 
HO 




PR 
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■"•"7 /, 
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AD 
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ED 


1 74 


AE 
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EE 
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■~."7Q 


pp 
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80 




r 


1 77 


Bl 
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Fl 
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X / CJ 


po 
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po 
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00 


■-. A "7 




P"! 
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OA A 


PA 


1 R 1 
X X 
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F5 


X OZ. 


PA 




PA 

r D 


X 00 


B7 
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F7 


1 RA 

X 0*T 


CO 


■"■AR 


po 

~ D 


X 0-3 
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PO 

r 7 
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X DO 


A 

oA 


0=1 ra 


PA 
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BB 
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FB 
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BC 
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FC 
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BD 
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FD 
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BE 


254 


FE 
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BF 
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FF 
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Assembly Language 
Subroutines 

Here is a hands-on approach to programming that explains how any TRS-80 
computer user can increase productivity and reduce the tediousness of 
programming by using assembly-language subroutines. 

TRS-80 ASSEMBLY LANGUAGE SUBROUTINES uses the speed and 
compactness of assembly-language programming and gives you fully 

debugged, ready-to-run subroutines, including: 

• a subroutine that converts binary numbers in memory to decimal characters 

• a subroutine that generates high-speed clearing of a screen block • a 
subroutine that outputs music through the cassette port in seven octaves 

• a subroutine that generates pseudo-random numbers for simulation or 
modeling • a subroutine that generates high-speed string searches 

Each of the 65 fully documented subroutines includes: 

• a complete description of what the subroutine does • the input/output 
parameters required to use the subroutine • the algorithm for the subroutine 

• a sample calling sequence • notes on special uses or features • a decimal 
listing • a "check" on the validity of the data. 
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